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COMPUTER PROGRAM FOR CALCULATING LAMINAR, TRANSITIONAL, 

AND TURBULENT BOUNDARY LAYERS FOR A 
COMPRESSIBLE AXISYMMETRIC FLOW 
by James A. Albers and John L Gregg 
Lewis Research Center 

SUMMARY 

A finite -difference program is described for calculating the viscous compressible 
boundary layer flow over either planar or axisymmetric surfaces. The flow may be 
initially laminar and progress through a transitional zone to fully turbulent flow, or it 
may remain laminar, depending on the imposed boundary conditions, laws of viscosity, 
and numerical solution of the momentum and energy equations. The flow may also be 
forced into a turbulent flow at a chosen spot by the data input. The input may contain 
the factors of arbitrary Reynolds number, free-stream Mach number, free-stream tur- 
bulence, wall heating or cooling, longitudinal wall curvature, wall suction or blowing, 
and wall roughness. The solution may start from an initial Falkner-Skan similarity 
profile, an approximate equilibrium turbulent profile, or an initial arbitrary input pro- 
file. This program is an extension of the finite -difference program of H. J. Herring 
and G. L. Mellor. 


INTRODUCTION 

Accurate methods for calculating boundary layer growth and boundary layer separa- 
tion are needed for the analysis and design of aircraft and propulsion system components 
Nacelles, turbomachinery blading, nozzles, ducts, splitter rings, and airfoils are ex- 
amples of some of the aircraft components that require information on the properties of 
boundary layer flow. The ability to use boundary layer methods enables one to replace 
much testing with calculations that consume less time and result in more detailed in- 
formation. 

This report discusses a FORTRAN IV program for computing laminar, transitional, 
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and turbulent boundary layers for compressible flow over planar or axisymmetric sur- 
faces. The present program is an extension of the finite -difference program of H. J. 
Herring and G, L. Mellor of reference 1. The program of reference 1 was extended to 
include an internal mechanism to determine transition from laminar to turbulent flow. 

The transition subroutine was written by H. J. Herring under the partial sponsorship of 
the Gas Turbine Products Division of General Electric Company. The program has been 
extended in its flexibility by the authors of this report by giving (1) detailed documenta- 
tion of the program, (2) additional input and output options, and (3) restructuring the pro- 
gram by breaking it into more subroutines. Some of the additional input and output op- 
tions that have been included are (1) option to scale input data, (2) numerical routine to 
increase accuracy at the start of the boundary layer growth, and (3) printout options. 

The structure of this program has been modified for use on smaller storage computers. 
This program includes instructions for interfacing with other programs which require an 
additional subroutine to supply a solution of the boundary layer. 

The equations of motion, boundary conditions, and method of solution are the same 
as contained in reference 1. The major equations are taken from reference 1 so that 
they can be cross referenced to the computer program. A modified Crank -Nicolson 
scheme is used to reduce the governing differential equations to finite -difference form. 
Since the momentum and energy equations are decoupled, a solution of the momentum 
equation can be obtained without solving the energy equation in many cases of interest. 
The decoupling thus may lead to shorter execution time. The solution may start from an 
initial Falkner-Skan similarity profile, an approximate equilibrium turbulent profile, or 
an initial arbitrary input profile. The flow may be initially laminar and progress through 
a transitional zone to fully turbulent flow, or it may remain laminar, depending on the 
imposed boundary conditions, laws of viscosity, and numerical solution of the momentum 
and energy equations. The program can calculate variable property flows with arbitrary 
pressure gradients and heat transfer. In addition, it can calculate flows with arbitrary 
Reynolds number, free-stream Mach number, free-stream turbulence, longitudinal wall 
curvature, wall suction or blowing, and wall roughness. 

This report gives a detailed description of the computer program. ^ It describes the 
function of each subroutine along with a discussion of all the variables in COMMON. The 
computer program source listing contains many detailed comments throughout which 
identify the operations carried out by the program. This report also discusses the input 
and output variables and presents special instructions for preparing input. Sample test 
cases including input and output printout are described. 


^Inquiries concerning this program should be directed to COSMIC, Computer Center, 
Information Services, 112 Barrow Hall, University of Georgia, Athens, Georgia 30602, 
(Reference: . LEW-12178). 
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PROBLEM FORMULATION AND METHOD OF SOLUTION 


Basic Equations of Motion, Boundary Conditions, and Method of Solution 

The techniques for solving the boundary layer equations can be divided into two 
general methods. The first includes the explicit integral method which requires a pro- 
cedure for solving ordinary differential equations for "integral” properties of the bound- 
ary layer. Some of the more commonly used integral techniques are discussed in ref- 
erences 2 and 3. The second method of solution of boundary layers is the finite- 
difference method, which provides a procedure for solving the partial differential equa- 
tions of mass, momentum, and energy. Three finite -difference boundary layer tech- 
niques for turbulent flow commonly used are those of (1) Herring and Mellor (ref. 1), 

(2) Patankar, et al. (ref. 4), and (3) Cebeciand Smith (ref. 5). This report uses the 
method of Herring and Mellor (ref. 1). A brief synopsis of the problem formulation and 
method of solution is presented. (All symbols are defined in appendix A. ) 

The equations of mass, momentum, and energy for a compressible boundary layer 
for axisymmetric bodies are 


3rpu 3rpv _ q 

3x 3y 


3x 3y dx r 3y 


( 2 ) 


pu + pv = ~ ~ [r(q + ur)] 
3x 3y r 3y 


(3) 


Equations (1), (2), and (3) apply to both laminar and turbulent flow if the definitions of 
t/p and q/p are taken to be 



(4) 


q 3 

p 


'eg 



(5) 


where i> e is the effective viscosity and i> ea . is the effective conductivity. For laminar 
flow, u e = v and i/ gg = v , the molecular kinematic viscosity and conductivity, respec- 
tively. An illustration of the coordinate system used in the boundary layer equations is 
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(a) Coordinate system. 



Figure l. - Illustration of coordinate system. 


given in figure 1 where x and y are the untransformed coordinates. 

The boundary conditions are 

u(x,0)=0 (6 ) 

v(x, 0) = v w (x) or pv(x, o) = P w v w (x) (7) 

h°(x,0) = h°<x) or q(x,Q) = q w (x) (8) 
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Equation (6) is a general wall boundary condition. Equations (7) and (8) are general 
wall boundary conditions on v and h° which include the effects of wall transpiration 
velocity v w and the wall heat flux q w . Equations (9) and (10) require that as 
the displacement thickness 5* and the enthalpy thickness t// be finite (ref. 6). 

Mellor and Herring use a Probstein-Elliott transformation (ref. 7) to transform 
equations (1), (2), and (3) so they become closer to their planar form. For the calcula- 
tion procedure a new set of variables is introduced. The velocity and enthalpy profiles 
are expressed in defect form according to the following transformations: 



(ID 


( 12 ) 


where 



y 

6*(x) 


(13) 


After these transformations have been introduced, the partial differential equations 
are still nonlinear and parabolic in the flow direction (see eqs. (0-14) and (n-15) of 
appendix B). Mellor and Herring linearize the partial differential equations by using 
finite differences for the x-derivatives resulting in a series of ordinary differential equa- 
tions. The x-derivatives are represented by finite differences according to an adapta- 
tion of the Crank-Nicolson scheme (ref. 8). The momentum and energy equations are 
written in terms of average functions at a point halfway between the x-position of the 
known profile (x.^) and that of the profile to be calculated (xj) as follows: 
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(l + c «) ±- [d(! - f')] 7 + J (Q + R)(v - f) - 


5 * f x> df ” 


+ J (Q + R)(r7 - f) - 


- 5*f Jd’ - (Pd + 6*d x )(2 - f’H f’ 


(Q + R)(t; - f) - [ - 6*f x d' + P(d - 1) + S*d x 


= (1 - f’)e*df; 


T - (k - DM 

(1 + C TJ) -i.J g" - — jj- 

; d H 1 + — (k - DMg 

2 e 


-f) 2 ]' 


+ (Q + R)(t 7 - £’) - f . 6*f x g" = (1 - f’)fi*gj E 


d = — 

P 


Finally, the forms in which the momentum and energy equations are solved are 


[b 4 (f" + b 5 )]|=b 3 + b 2 f!' + biq 
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[ b 4 ( g, ’ + b 5)]’ = b 3 + b 2^’ +b l g i 


(17) 


where the b coefficients are defined in equations (IXI-9) and (III-10) of appendix B. 

The solution of equations (16) and (17) is carried out iteratively because of their non- 
linearity. The coefficients b^ to bg are evaluated using the results of the previous 
iteration. The resulting linear equations are solved for f' and g’ by applying a 
Gaussian elimination procedure. Then f" and g” are obtained by taking the first 
differences of f' and g’ . The ordinary differential equations are then integrated nu- 
merically across the boundary layer at each x-location to get the integral momentum 
and energy relations. 

In order to solve the partial differential equations for turbulent flow, an expression 
for the turbulent effective viscosity is required. Mellor and Herring, in formulating 
their effective viscosity hypothesis, divide the boundary layer in terms of an inner 
layer, an overlap layer, and an outer layer. The viscosity of each region is based on 
experimental data and is uniquely determined by values of a pressure gradient param- 
eter and a displacement thickness Reynolds number (refs. 9 and 10). The effective 
viscosity hypothesis as used in the program includes the influence of longitudinal wall 
curvature (ref. 11). 


Method of Predicting Transition 

Theoretical investigations into the process of transition from laminar to turbulent 
flow are based on Reynolds’ hypothesis that transition occurs as a consequence of an 
instability developed within the laminar boundary layer. The transition region is de- 
fined as the region between the instability point (or critical point) and the fully turbulent 
point. The instability point is the point on the surface at which amplification of an 
individual disturbance begins and proceeds downstream. The boundary layer becomes 
fully turbulent some distance downstream of the instability point since the disturbance 
takes time to be amplified to fully developed turbulent flow. 

The basic formulation of the transition equations used herein was developed by 
H. J. Herring. The physical factors which influence the transition location that have 
been accounted for in this analysis include the pressure gradient parameter K, surface 

roughness s , wall suction or blowing v w , free -stream turbulence level q , heat- 
transfer parameter S + , and longitudinal radius of curvature parameter 6 / c . The 
point of instability is determined from the critical Reynolds number R cr , which is a 
function of the pressure gradient parameter K and the Stanton number S^.: 
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(18) 


R cr * « K ’ ^ 

\ 

where 



v 


w 


dU 

dx 


(19) 


The difference between the Reynolds number at the fully turbulent point R ft and 

the critical Reynolds number R is a function of both the pressure gradient param- 

cr — 

2/9 

eter and free -stream turbulence level q /U where 



If the effects of longitudinal radius of curvature d/c w and surface roughness s w /S* 
are included, the Reynolds number at the fully turbulent point becomes 




( 21 ) 


R cr ( K > s t ) + r a (k)i( a_ 


All the functional relations of equations (18) and (21) were obtained from refer- 
ence 12, except the critical Reynolds number when heat transfer is considered. This 
functional relation was obtained by the method of Lees (ref. 13). 

The effective viscosity in the transition region is determined from the kinematic 
viscosity v , the intermittency factor y, and the turbulent viscosity 

" e = v + yv t < 22 ) 

The intermittency factor is defined as that fraction of time during which the flow at a 
given position remains turbulent. It is calculated from the method of Dhawan and 
Narasimha (ref. 14). 
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PROGRAM DESCRIPTION 

I 

Program Calling Sequence and Operating Environment 

A simplified functional flow diagram of the main supervisory program TUF is 
shown in figure 2. The program TUF is segmented into four principal parts: sub- 
routines INIR, ITFR, ITSR, and NDIR. Subroutine INIR calls the input subroutine 
COTR. Subroutines ITFR, ITSR, and NDIR, in turn, call several other subroutines. 

All the subroutines and their relation are shown in figure 3. Subroutine INIR calls sub- 
routines VIS, FILE, INTEG, and A6IR besides COTR. Subroutine ITFR calls sub- 
routines VIS, FILE, PROFYL, INTEG, and A6IR. Subroutine ITSR calls subroutines 
TRANS, VIS, FILE, PROFYL, and INTEG. Subroutine NDIR calls subroutines VIS, 
FILE, and A6IR. Subroutine TRANS calls subroutine INDEX, and subroutine VIS calls 
subroutine INTEG. 

Five of the subroutines in TUF use the same set of variables. These variables are 
all placed in labeled COMMON blocks which transmit information between subroutines. 
These variables are all defined in the Common Arrays and Single Word Common Stores 
sections. All subroutines using these variables are described in the Main Subroutines 
section. The remaining subroutines are described in the Auxiliary Subroutines section. 
Their major variables are described in the comment cards with each subroutine. 

The program can handle as many as 99 points along the boundary layer surface and 
up to 300 points normal to the surface in the velocity profiles. The program is run at 
Lewis on the IBM -7094/7044 direct-coupled system with a 32768 -word core (77777^). 
The total program storage requirement is 67047^ of which 30117^ is used in storage 
of labeled common variables. 


Main Subroutines 

A brief description of the function of each subroutine will be discussed. Detailed 
comments are given throughout the source listing. 

COTR . - Subroutine COTR reads, recomputes the starting data, and prints all the 
input data. Subroutine COTR reads in the x-station data from either cards or tape. In- 
structions for reading in data from the tape are given in the Special Instructions for 
Preparing Input section. Subroutine COTR calls subroutine A6IR to read and print com- 
ments that are a part of the data input. 

INIR . - Subroutine INIR carries out some of the required initialization of the pro- 
gram and calls COTR for reading and listing the input data. Subroutine INIR calculates 
the x-station potential flow velocity U(X) if the Mach number M(X) is input, and 
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Figure 2. - Flow diagram for main supervisory routine TUF. 














Figure 3. - Calling relation of program subroutines.- 


calculates the Mach number M(X) if the velocity U(X) is input. It nondimensionalizes 
the calculated U(X) by the value at the second x- station. It subdivides the initial in- 
tervals on the momentum and energy profiles (YY(J), f * ( 17 ), and g '(??)) according to the 
input JDIV. It computes f(rj) by calling subroutine INTEG which uses the trapezoidal 
rule to calculate f (??) from the f'(rj) profile. Subroutine INIR computes f ,T (^) and g”(Tj) 
by using forward differences. The computation of the secondary profiles of density D(J) 
and derivative of density DP{J) is followed by a call to subroutine VIS, which computes 
the effective voscisity VE(J) and effective conductivity VEG(J) from the input profile. 
Subroutine INIR then computes the local shear stress profile TAU(J). 

ITFR. - Subroutine ITFR carries out the rest of the required initialization of the 
program. It calculates the momentum and energy starting profiles, except when the in- 
put profiles are used as the starting profiles. For variable property flow it recalculates 
the density D(J) and the x-derivative of the density DP(J). Subroutine ITFR calculates 
the parameters P, Q, R, etc. , for laminar and turbulent flow. It calculates the coef- 
ficients of the momentum and energy equations and calls subroutine PROFYL for the 
f^Tj) and g'(ij) solution. The momentum and energy loops are iterated until convergence 
is obtained. For both the momentum and energy loops, the maximum number of iter- 
ations equals 15. Subroutine ITFR calculates 6* and for option 4 and rescales 

p, Q, R, etc. , for laminar flow. It prints the profiles and parameters by calling sub- 
routine FILE . 
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IT SR . - The subroutine IT SR performs the calculations for the forward motion of 
the program for each x-station. The loop begins by moving the known profile into 
storage for the profile at the x-station before the one to be calculated. This is followed 
by an iterative loop to calculate a new set of profiles at the x-station. Within this loop, 
there is an inner loop to iterate for the f'(rj) profile. These calculations are very simi- 
lar to the initialization part of the program. When these calculations have converged 
the integral parameters for the x -position are then calculated and used as a test for 
accuracy. The process continues until profiles have been calculated at all x-stations 
or the case is ended on (1) a profile out of bounds test or (2) a laminar separation. The 
subroutine ITSR calls subroutine TRANS (if type of flow is not specified by input), which 
determines whether flow is laminar, transitional, or turbulent. 

NDm. - Subroutine NDIR prepares for a turbulent restart calculation by resetting 
8 , 5*, Rg,j. , etc. . It also calls subroutine FILE to list a summary of the principal 
boundary layer parameters at each x-station. 


Auxiliary Subroutines 

TRANS. - Subroutine TRANS computes the critical index IC for transition from 
laminar to turbulent flow. It computes the intermittency factor TURB(I) in the transi- 
tion region which is used in subroutine VIS to compute the viscosity and conductivity. 
The subroutine itself was written by H. J. Herring under the sponsorship of General 
Electric Company for use with the Mellor -Herring Compressible Boundary Layer Pro- 
gram (ref. 1). 

The input variable TOP governs the use of subroutine TRANS. If TOP = 0, 
transition is not predicted and the boundary layer program operates as specified by the 
TURB(I) values (see table VI). The range of the transition zone can be specified by 
changing TURB(I) from 0. 0 to 1.0 either gradually or abruptly depending on the desired 
size of the transition region. If TOP = 1, the TRANS subroutine will be called and it 
will predict transition. For this operating mode TURB(I) values need not be specified. 
However, transition may be forced at an x-station by setting TURB(I) =1.0 ahead of 
the predicted transition. At the specified location the boundary layer will be scaled up 
to a Reynolds number at which the current conditions would cause transition. In other 
words, the boundary layer is thickened enough so that transition can take place and the 
calculation continues downstream. 

INBEX. - Subroutine INDEX is used to find the index or position of a value of a 
function S in a data table supplied by the TRANS subroutine. 

VIS. - Subroutine VIS computes the effective viscosity VE(J) and effective conduc- 
tivity VEG(J) using the viscosity and conductivity equations given by equations (IV-1A), 
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(IB), (2), (3), and (4) of reference 1. The entire effective viscosity hypothesis for 
turbulent flow is contained in this routine with the exception of the recomputation of 
TURB(I+1) in subroutine TRANS under certain conditions. 

PROFYL. - Subroutine PROFYL computes f 1 (r?) of the momentum equation using 
the b’s from equations (in -9 A) to (III-9E) of appendix B and computes g’(p) of the 
energy equation using the b's from equations (3H-10A) to (IH-10E) of appendix B. 

INTEG . -Subroutine INTEG is used to sum the input profile by a simple trape- 
zoidal rule. 

FILE. - Subroutine FILE lists the momentum and energy profiles and parameters 
at each x -station according to the input R?TO(k) and WSTO(l) list options. See the 
Input Variables section for these options. 

A6IR. - Subroutine A6IR lists comment cards that accompany the data input. A 
detailed discussion of this routine is given in appendix C. 

Common Arrays 

This list is to be used with table I, the occurrence list of common arrays which 
shows in which subroutines each listed array is used (e.g. , initialized, computed, em- 
ployed in a computation, or listed). All arrays dimensioned 300 yield the ETA coor- 
dinate profile. All arrays dimensioned 100, except the JTR array, yield the 
x -coordinate profile. JTR, ISTO, and WSTO are general purpose arrays. The array 
B(300, 5) yields the five coefficient ETA profiles. All arrays shown by the table to 
be in subroutine INIR are initialized by subroutine INIR to either 0. 0 or another 
constant. 

In addition to the uses to be mentioned for the arrays as they are listed separately 
herein, the following functions are re -initialized in subroutine NDIR if a turbulent re- 
start is required at the last critical point I(X)=IC. The re -initialization occurs if 
ISTO(14). EQ. 1 to get a call of subroutine ITFR by TUF after a laminar separation 
occurs in subroutine ITSR. Otherwise, a re -initialization occurs when the input data 
TURB(I) forces a start of turbulent flow at I{X)=IC=IT, The single quantities MT(IC), 
DT(IC), DTK(IC), HT(IC), and RDT(IC) are re -initialized. The array TURB(IC) from 
I(X)=IC to IX is set equal to 1. 0, and the profile of TAU(J) is recomputed. The ETA 
profiles of F<J), FP(J), FPP(J), GP(J), GPP(J), D(J), and DP(J) are shifted backward 
one x-station, and the coefficient CF(IC) is recomputed from the latest TAU(l). 

The arrays X(I),U(I)or M(I) and TURB(I), GBC(I), RW(I), VW(I), SW(I), and 
CW(I) are read in together by subroutine COTR as the x-station data. In the present 
version of subroutine COTR, only the X(I), U(I) or M(I), and RW(I) can be read in • 
from the tape. The remaining x-station data are set to 0. 0 for the tape read in. The 
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TABLE I. - OCCURRENCE LIST OF COMMON ARRAYS 


[Subroutines FILE, VIS, PROFYL, INTEG, TRANS, and INDEX have no common. An * indicates that the 
labeled store at the left occurs in the labeled subroutine above the * . ] 





x-station data arrays near the origin are computed by a linear interpolation made by 
subroutine COTR on the integer switches ISTQ(8) and ISTO(9). 


B(300, 5) 


CAY(300) 


CF(100) 


CLIS(400) 


CW(100) 


D(300) 


Coefficient profiles (5) for the momentum equation (III-7) for computing 
F’(ETA) profile and for the energy equation (El -8) for computing 
G'(ETA), The B(J,K) profiles are computed in subroutines ITFR and 
ITSR just before the call of subroutine PROFYL for F'(ETA) and 
G’(ETA). B(J,K) in subroutine ITFR is computed from relations sim- 
plified in comparison with those used by subroutine ITSR. 

CAY(J).GE. -1. CAY(J)=CA*Y(J) in subroutine INER is the scaled coor- 
dinate on 2/R(wall) normal to the axis of the body. CAY(J) is used 
in computing the TAU(J) profile which is computed from the same 
formula in all routines. CAY(J) is computed primarily to prevent a 
square root of a negative number from occurring in the function 
SQRT(1. +CA*Y(J)). In subroutine ITSR, CAY(J) is used to compute the 
YY(J) profile for subroutine VIS, the TAU(J) profile, and the B(J, 4) 
profile. CAY(J) is not computed in subroutine ITFR. 

Profile of the skin friction coefficient defined in appendix A, computed 
in subroutines ITFR and ITSR, and listed by surboutines FILE and 
NDIR. CF(I) is initialized to 0. 0 by subroutine INIR. CF(I) is recom- 
puted in subroutines ITFR and ITSR after leaving the momentum - 
energyloopas CF(I)=2. *TAU(1). 

General purpose array used by subroutine ITSR if ISTO(6).EQ. 1 for 
storage of COF1, COF2, COGl, and COG2 of equations (H-21) and 
(H-23) and listed by subroutine NDIR. 

Radius of longitudinal curvature profile at I(X) wall stations is in the 
same units as x, and is loaded by subroutine COTR together with the 
other x-station data. CW(I) is used by subroutine VIS which is called 
by subroutines INIR, ITFR, ITSR, and TRANS, which in turn is called 
by subroutine ITSR. CW(I) is listed by subroutines FILE, COTR, 

INIR, NDIR, and ITSR. CW(I) near the origin is computed by a linear 
interpolation made by subroutine COTR on the switches ISTO(8) and 
ISTO(9). 

Density ratio profile is initialized equal to 1. 0 by subroutine INIR. 
Later, for MOP.GE.O, D(J) is determined before the call of sub- 
routine VIS in the momentum loop of the calling subroutine and is com- 
puted from equation (11-16). D(J) is listed by subroutine FILE on an 
option. 
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DB(300) 


DBB(300) 


DP(300) 


DPB(300) 


DT(IOO) 


DTK(IOO) 


F(300) 


Density ratio profile one station back upstream. DB(J) is used to com- 
pute the x-derivative DP(J) of the density ratio parameter profile. 

See DP(300) herein. For starting the flow DB(J) is computed by sub- 
routine ITFR and is given by DELTA(*)*DP(J). See the density equa- 
tion (n-16) and DELTA(*)*D(D(J))/DX by equation (11-32). Otherwise, 
DB(J) is loaded by subroutine ITSR at the nead of the I(X) loop. 

DB(J)=0. 0 for MOP. LT.O. 

Density ratio profile two x-stations back upstream. DBB(J) is used to 
compute DP(J). See DP(300) herein. DBB(J) is loaded at the nead of 
the I(X) loop in subroutine ITSR. 

Density ratio x-derivative parameter profile on ETA computed from 
equation (11-27). DP is initialized to 0. 0 by subroutine INIR and re- 
mains 0. 0 for MOP. LT. 0. DP(J) is computed by subroutines INIR, 
ITFR, and ITSR in the same loop as D(J). DP(J) is used by subroutine 
VIS and by subroutines ITFR and ITSR in the computation of the B(J,K) 
profiles. 

Same as DP(J) but one x-station back upstream. DPB(J) is saved for 
the turbulent restart re-initialization by subroutine NDIR (possible 
working storage file for those NDIR decks which do not use the turbu- 
lent restart feature). DPB(J) is loaded at the head of the I(X) loop in 
subroutine ITSR. 

Displacement thickness in the same units as x and is defined by appen- 
dix A (see DELTA(*)). DT(1) is initialized to 0. 0 and later read in by 
subroutine COTR. For IOP.EQ.4 subroutine ITFR computes DT(2) 
and may reset DT(1)=DT(2) and starts the flow at I(X)=2. The re- 
maining DT(I) are computed by subroutine ITSR initially before enter- 
ing the momentum loop and recorrected in the output parameter section 
after the computation of COF1, COF2, COG1, and COG2 following the 
exit from the momentum -energy loop. 

Scaled value of DT(1) used only by subroutine TRANS, which is called 
only if TOP. EQ. 1. ITSR also uses DTK(I) to compute RMTW for 
subroutine TRANS. DTK(I) is computed by subroutines ITFR and ITSR, 
and by subroutine NDER in the turbulent restart re -initialization section. 

See FB(300). Used by subroutines INER, ITFR, ITSR, and NDIR. 

F(J) is computed by subroutine INTEG by summing F'(ETA)=FP(J) 
and is used indirectly by subroutine VIS. 
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FB(300) 


FBB(300) 

FP(300) 


FPB(300) 


FPBB(300) 


FPP(300) 


Subroutine ITFR loads FB(J) with F(J) for I(X).EQ.1,2 just before 
the return. Subroutine IT SR at the beginning of the loop on I(X) stores 
FB(J) in FBB(J) and loads FB(J) with F(J). F(J), FB(J), and 
FBB(J) are used to compute the coefficients for B(300, 5) for sub- 
routine PROFYL. 

Used by subroutine ITSR. See FB{300). 

F'(ETA) profile, used by subroutines INIR, COTR, ITFR, ITSR, NDIR, 
FILE, VIS, PROFYL, and INTEG. F’(ETA) is the velocity defect pro- 
file. Initial FP(J) profile is card read in and expanded by subroutine 
COTR, and then filled in by subroutine INIR on JY. If 
IABS(DOP). EQ. l.OR.MOP.GE. 0, then FP(J) is later computed in 
subroutine INIR to become the initial profile for subroutine ITFR. 

F(J) is obtained from FP(J) by summing using subroutine INTEG, and 
FPP(J) is obtained from FP(J) by taking the first central differences 
in subroutines ITFR and ITSR and first forward differences in sub- 
routine INIR. FP(J) is used in the computation of B(J,K) for sub- 
routine PROFYL. FP(J) is also used by subroutine VIS to compute the 
effective viscosity and effective conductivity profiles, and by subrou- 
tines ITFR and ITSR to compute tht local shear stress TAU(J). 

FP(J) profile upstream one x-station. FPB(J) is loaded by subroutine 
ITFR just before the return and by subroutine ITSR at the head of the 
I(X) loop. FPB(J) excepting FPP(l) is used by subroutine ITSR, but 
not by subroutine ITFR, in the computation of the B(J, K) coefficients 
for subroutine PROFYL. 

FP(J) profile upstream two I(X) stations. FPBB(J) is loaded at the 
head of the I(X) loop with FPB(J) in subroutine ITSR and is used in the 
computation of the B(J, 3) profile for subroutine PROFYL. 

F"(ETA) profile obtained by first forward differences in subroutine 
INIR, and by first central differences in subroutines ITFR and ITSR 
excepting FPP(l). FPP(1)=FPP(1)*F(JE) in subroutine ITFR for 
IOP.EQ. 1, 5 where IOP. EQ. 5 may initially be IOP.EQ.4. FPP(l) 
in subroutines ITFR and ITSR is obtained from first forward differ- 
ences. FPP(J) is used in the computation of the TAU(J) profile and the 
B{J, K) coefficients for subroutine PROFYL. FPP(J) is used in com- 
puting the TAU(J) profile and the B(J,K) coefficients for subroutine 
PROFYL. 
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FPPB(300) 


GBC(IOO) 


GP(IOO) 


GPB(300) 


GPBB(300) 


GPP(300) 


F ?, (ETA) profile upstream one x-station. FPPB(J) is used in sub- 
routine IT SR in computing the B(J,K) coefficients for subroutine 
PROFYL but not in subroutine ITFR. ITSR loads FPPB(J) at the head 
of the I(X) loop. 

Wall boundary condition on the energy equation either G’(ETA) or 
G"(ETA). See equation (II-19D). GBC(I(X)) is read in by subroutine 
COTR as part of the x-station data and is used by subroutines ITFR 
and ITSR according to the integer switch MOP. GBC(I) near the origin 
is computed by a linear interpolation made by subroutine COTR on the 
switches ISTO(8) and ISTO(9). 

Energy equation profile of G'(ETA) the total enthalpy defect ratio in 
appendix A (see G’(ETA)). GP(J) is initially read in and expanded by 
subroutine COTR on JDIV and then filled in by subroutine INIR. GP(J) 
is not later recomputed in subroutine INIR. The following GP(J) pro- 
files are computed in either subroutine ITFR on a call of subroutine 
PROFYL for the starting profile on an option or in subroutine ITSR on a 
call of subroutine PROFYL. The GP(J) profile is used to compute the 
GPP(J)=G ?, (ETA) by first differences in subroutines INIR, ITFR, and 
ITSR in the same manner as for FPP(J). GP(J) is computed only once 
for each convergence of the momentum equation. GP(J=1) is used to 
determine the convergence of the set of momentum -energy equations. 
See also GPP(300). 

G f (ETA) profile is one x-station upstream and is stored just before the 
exit from subroutine ITFR and at the head of the I(X) loop in subroutine 
ITSR. GPBB(J) is loaded from GPB(J). GPB(J) is used to compute 
the B(J,K) coefficients in subroutine ITSR for subroutine PROFYL, 
also used to compute Bl. 

G T (ETA) profile is two x-stations upstream from I(X) and is loaded by 
subroutine ITSR at the head of the I(X) loop. See GPB(300). GPBB(J) 
is used only to compute the B(J,K) coefficients in subroutine ITSR for 
subroutine PROFYL. 

G M (ETA) profile obtained by taking the first differences of G'(ETA) 
after the exit from subroutine PROFYL in the energy section of the 
momentum -energy loop in subroutines ITFR and ITSR and after the 
computation of F"(ETA) in subroutine INIR. Both GPP(J) and FPP(J) 
are used in computing DP(J) in subroutines INIR, ITFR, and ITSR as 
well as by subroutine VIS for VE(J), VEG(.T) in the effective viscosity 
and effective conductivity corrections from equation (IV-3). GPP(l) is 
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GPPB(300) 


GPW(IOO) 


HT(IOO) 


ISTO(16) 


JTR(IOO) 
LABE L( 132) 


M(IOO) 


MT(IOO) 


RDT(IOO) 


RW(IOO) 


used in the final convergence test for leaving the momentum -energy loop 
in subroutines ITFR and IT SR. 

G"(ETA) profile is one x-station upstream from the current I(X) and is 
loaded by subroutines ITFR and ITSR like GPB(J). A storage array 
used only by subroutine NDIR. 

Value of GP(J)=G’(ETA) profile at the wall. GPW(I)=GBC(I) if 
IBC.EQ.2 but GPW(I)=GP(1) if IBC.EQ.3 where IBC=ABS(MOP). 
GPW(I) is used by subroutine PROFYL. For MOP, see the card input 
data of table VI. 

Total enthalpy thickness is in the same units as x and is defined in 
appendix A (see PSI). HT(I) is computed in subroutines ITFR and rTSR 
after leaving the momentum-energy loop. 

Set of integer switches read in by subroutine COTR. See the comments 
in the data input deck of table VI for the ISTO(K) usage. ISTO(K) is 
initialized to 0 by subroutine INIR. 

Standby set of integers not used in the current program of TUF. 

Array in alphanumeric format used for a heading to identify the case at 
the time of the listing of the ETA profiles. Current version of TUF 
uses only 18 of these stores. 

Mach number at the x-station boundary layer edge, M(I(X)). M(I) is 
either loaded with U(I) from cards when U(I) on input is the Mach num- 
ber, or computed from the U(I), SHR, and MR data when U(I) is the 
x -velocity input. See subroutine INIR after the exit from subroutine 
COTR. See also DOP in table VI. 

Momentum thickness in the same units as x and is defined in appen- 
dix A (see THETA). Subroutines ITFR and ITSR compute MT(J) 
after the exit from the momentum -energy loop using the relation 
MT(I)=DT(I)/SF(I). 

Reynolds number based on the momentum thickness 
U*DELTA(*)/U(BLE). RDT(I) is computed by subroutine ITSR in each 
momentum loop and reset to match CF(I) after leaving the momentum - 
energy loop. 

Radius of the body surface expressed in the same units as x. RW(I) is 
part of the x-station data read in by subroutine COTR from either cards 
or tape. RW(I) near the origin is computed by linear interpolation 
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SF(IOO) 


ST (100) 


STR(IOO) 


SW(IOO) 


TAU(300) 


TF{100) 


TURB(IOO) 


using ISTO(8) and IST0(9) in subroutine COTR. RW(1) may be reset in 
subroutine INIR after the read in by subroutine COTR. 

Ratio DELTA(*)/THETA where DELTA(*) is the displacement thick- 
ness and THETA is the integral momentum thickness of equation 
(H-22). SF(100) is computed in subroutines ITFR and IT SR after leav- 
ing the momentum -energy loop, but it is also computed in the momen- 
tum loop of subroutines ITFR and IT SR. 

Stanton number is defined in appendix A and is based on the free stream 
to wall enthalpy differences. ST (I) is computed in subroutines ITFR 
and ITSR after leaving the momentum -energy loop. Either ST(I)=0. 0 
or if ABS(Bl). GT. ZERO then ST(I)=STR(I)/Bl. 

Stanton number is defined in appendix A and is based on the free stream 
to reference enthalpy differences. STR(J) is computed in the energy 
section of the momentum -energy loop of subroutines ITFR and ITSR. 

In subroutine ITSR we have STR(I)=-VEG(1)*GPP(1)/D(1). 

Nikuradse (ref. 16) sand grain roughness scale in the same units as x, 
and read in by subroutine COTR as part of the x-station data. SW(I) 
near the origin is computed by a linear interpolation made by subroutine 
COTR on the switches ISTO(8) and ISTO(9). 

Profile of the local nondimensional shear stress. TAU(J) is initially 
computed by subroutine INIR followed by the TAU(J) computation in 
the momentum section of the momentum -energy loop of subroutines 
ITFR and ITSR. Subroutine VIS uses TAU(J). Subroutines ITFR and 
ITSR compute CF(I)=2. *TAU(1). 

x-Profile of die Mach number function T(total)/T(static). 
TF(I)=l,+(l./2. )*SHR-1. )*M(I)*M(I). TF(100) is computed along with 
either M(I) or U(I) in subroutine INIR. 

Interm ittency factor .GE.O and .LE.l. TURB (I) represents the 
amount of turbulence present in the flow. See comments on subroutines 
VIS and TRANS. TURB(I) is either card read in by subroutine COTR 
or computed by subroutine TRANS during the run. It is used in the 
computation of the effective viscosity VE(J) and the effective conduc- 
tivity VEG(J) by subroutine VIS. TURB(I) near the origin is reset on 
(TOP. NE. 1. AND. IOP. NE. 7) during the linear interpolation of the 
x-station data by subroutine COTR on the switches ISTO(8) and ISTO(9). 
All TURB(I) are initialized to 0. 0 by subroutine INIR before entering 
subroutine COTR. 
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U(100) 


VE(300) 


VEG(300) 

VH(300) 

VHP(300) 

VHPP(300) 

VW(IOO) 


WSTO(20) 


X(IOO) 


Y(300) 


Free-stream velocity at the boundary layer edge is either read in by 
subroutine COTR from cards or tape or computed by subroutine INTR 
from the M(I) data read in by subroutine COTR as U(I). U(I) near the 
origin is computed by a linear interpolation made by subroutine COTR 
on the switches ISTO(8) and ISTO(9). 

Nondimensional effective viscosity profile computed by subroutine VIS 
on call by subroutines INTR, ITFR, ITSR, and NDIR. Subroutine VIS 
is called by subroutines ITFR and ITSR from the momentum loop and 
by subroutine ITSR after the exit from the momentum -energy loop pro- 
vided that TOP. EQ. 1. 

Nondimensional effective conductivity profile computed together with 
VE(J) in subroutine VIS. See VE(300) and comment in subroutine VIS. 

Working store array, temporary storage. 

Working store array, temporary storage. 

Working store array, temporary storage. 

Transpiration velocity in the same units as U(X) and read in by sub- 
routine COTR together with the other x -station data. See table V for the 
density weighting. VW(I) is used by subroutines ITFR and ITSR in the 
computation of B(J,K) for use by subroutine PROFYL in computing 
F’(ETA) and G’(ETA). VW (I) near the origin is computed by a linear 
interpolation made by subroutine COTR on the switches ISTO(8) and 
ISTO(9). 

General purpose working array read in by subroutine COTR. See the 
comments in the data input of table VI. WSTO(K) is initialized to 0. 0 
by subroutine INTR. 

x -Coordinate X(I). It is read in from either cards or tape by sub- 
routine COTR. X(I) near the origin is computed by a linear interpola- 
tion made by subroutine COTR on the switches ISTO(8) and ISTO(9). 

Independent variable Y/DELTA(*) normal to the wall is computed as 
Y(J)=YY(J)*(1. +YY(J)*CA/4. ) in subroutine INTR to account for the nose 
angle of an axisymmetric body. It is not recomputed later during the 
run. The profile of YY(J) is both read in from either cards or tape and 
completed on the JDIV interval by subroutine COTR. Y(J) is used as 
the normal coordinate everywhere except by subroutine VIS which uses 
a YY(J) coordinate recomputed at each I(X) wall station. However, at 
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the starting I(X), subroutine ITFR uses the initial YY(J) completed 
profile. 

YY(300) y -Untransformed coordinate normal to the body surface as divided by 

DELTA(*). YY(J) is used to obtain the transformed y of equation 
(H-7B). YY(J) profile is read in, spaced by subroutine COTR, and then 
filled in by subroutine INIR before being used to compute the Y(J) pro- 
file which includes the effect of the nose angle. Later, in subroutine 
IT SR, YY(J) is recomputed at each I(X) wall station using the displace- 
ment thickness which in turn is also computed at each I(X) wall station. 
YY(J) is recomputed only when ABS(RW(I)/DT(I)). GE. 1 so that the new 
YY(J) is YY(J)=2. *Y(J)/(1. +SQRT(1. +CAY(J)=CA*Y(J)) where 
CAY(J).GE. -1. CA is recomputed at each I(X) station. YY(J) is used 
by subroutines ITFR and ITSR to supply subroutine VIS with a normal 
coordinate. YY(J) as used by subroutine VIS at the origin, in both sub- 
routines INIR and ITFR, is the initial complete YY(J) not corrected 
using CA. 


Single Word Common Stores 

This list is to be used with table II, the occurrence list of single word common 
stores which shows in which subroutines each listed word is used (e. g. , initialized, 
computed, employed in a computation, or listed). The following abbreviations are used 
in the computer equations: enthalpy, H; boundary layer edge, BLE; at reference level, 
REF; total, TOT: 

ATUF Not used. 

B1 Initially TF(I)- 1 . In both subroutines ITFR and ITSR, but is recomputed 

later in ITFR and ITSR as GPW(-TF(I)-1, )/BH/TF(I) to compute in turn 
ST (I)= STR(I)/'B 1 in ITFR and ITSR. 

BH Enthalpy ratio (H(B LE )TOT -H (RE F ) )/H (B LE )TO T data constant read in by 

subroutine COTR. 

BK Clauser constant 0. 016 set in subroutine INIR and used by VIS only. 

BS Input for initial pressure gradient from data read in by subroutine COTR. 

BS is the exponent in the power law for velocity = U(X)/U(L)=(X/L)**B at 
the boundary layer edge in wedge flow. See equation (II -28a). BS=1.0 
for plane stagnation flow and BS=0. 0 for Blasius flow. 


22 



TABLE II. - OCCURRENCE LIST OF SINGLE WORD COMMON STORES 


[Subroutines FILE, VIS, PROFYL, INTEG, TUANS, INDEX have no common.. An * Indicates tliat the labeled store at the left occur* In a labeled subroutine above the *.] 


COTR 


IFTR 


IT SR 


NDIH 


FILE 


ATUF 

D1 

BH 

BK 

BS 

C 

CO 

COB 

CA 

CA1 

CMTF 

CMTG 

CMU 

COAL 

DI 

DJ 

DOP INTEGER 

DTM 

DTS 

DTXM 

DX 

DXB 

ET 

FPE 

FPPW 

FT 

FTU2 

FV 

GAM 

GAMX 

GPE 

GFPW j 

I 

JO 

me 

ic 

ID 

IOP 

rr 

IX 

IXA 

DOS 

DCF 




JM 




4 

4 



JTUF 








JY 



* 

* 

4 

* 


KR REAL 


* 



4 



KM1 


* 


4 

4 



LOOP 








LOOPF 








ML REAL 


* 


4 




MOP 


* 

4 

‘ 4 

4 



MR 


V 

* 



4 


NU 




4 




01 


4 


4 

4 



P 


♦ 


* 

4 

4 


PR 





4 



PM 





4 



POP INTEGER 


* 

* 

4 

4 

4 


PR 


* 


4 

4 

4 


PRT 


* 


* 

4 

* 


Q 


* 


4 




QB 





4 



QM 





* 



QRB 





* 



QRM 





4 



R 


* 


4 | 

4 

4 


RB 





4 



RC 


4 



* 

4 


RDF ' 


•4 


4 

1 

4 


RDTK 




* 

4 I 

4 


RL 


* 


* 

j 



KM 





* 1 



RMS 








RMT 





4 1 


* 

RMTW 




* 

4 



RX 





4 

4 


RXRDF 








SHR 


* 


♦ 

* 1 

4 


SK 


* 


4 




sre 


* 


4 

4 

4 


STRX 


* 


4 




SfTUF 








TO 


* 

♦ 

4 

4 

4 


TFR 


4 




4 


TOP INTEGER 

■1 

H 

■ 

1 

■ 

m > 



ux 

VPB 

VPM 

XK 


* 


XT 

ZERO 



CO 

COB 

CA 


CA1 

CMU 

COAL 

CMTF 

CMTG 


Constant in the displacement thickness at DELTA(*) given by 
DELTA(*)/L=C*(X/L)**(1. -B)/2. (eq. (II-28b)). C is computed in sub- 
routine INIR as C=SQRT(2,/(BSfl.)/RL. If IOP. EQ. 4, yielding laminar 
similar flow, C is recomputed in subroutine ITFR as C=F(JE)*C and is 
used in computing P, Q, VP, and CF. 

Coefficient used by subroutines ITFR and ITSR in computing the coefficient 
profiles B(J,K=1, 5) used by subroutine PROFYL. See equation (m-6e). 

First of five cofficient functions (COB, C1B, C2B, C3B, and C4B) com- 
puted in subroutine ITSR from the (1-1) and (1-2) x-stations and used by 
equations (III-9a) and (ni-9c) to compute B(J,K) for the F'(ETA) profile in 
subroutine PROFYL. 

Nose angle parameter (2. *(DELTA(*)/R(W))*(COS A)) used to compute the 
array CAY(J)=CA*Y(J). CA is used by subroutine INIR to compute Y(J) 
and YY(J). Computation of CA in subroutine INIR depends on the IOP 
option used. If IOP. EQ.4, subroutine ITFR resets CA to 0. 0 and recom- 
putes CA as 2.*OI*COAL*C*(X(2)-X(l))/RW(2) provided 
RWSL. GE. 1. 0E-08 where RWSL is the slope of RW(I) at the origin. In 
subroutine ITSR, CA is computed in the momentum loop and is given by • 
CA=CA1*DT(I). 

Function (2/R(W))*COSA. A function of RW(I) used to compute CA in both 
the momentum loop of subroutine ITSR and the initialization section of sub- 
routine NDIR. CA-CA1*DT(I). CA1 is computed in subroutine ITSR before 
entering the momentum -energy loop. CA1=0. 0 in planar flow. 

Shear parameter. See equation (11-34). CMU is computed before the call 
of VIS. CMU is used by subroutine ITFR to compute STRX, a Stanton num- 
ber gradient parameter for the starting profiles. 

Cosine of the angle of the nose of an axisymmetric body for the starting pro- 
files. COAL is computed equal to SQRT(1. -(D(RW(X)=1, 2))/DX)**2) in 
subroutine INIR, and it is used by subroutines INIR and ITFR in the com- 
putation of CA. 

Function initialized to 1. 0 in subroutine INIR and corrected by C0F2/COF1 
in subroutine ITSR at each succeeding I(X) wall station "but not used in a 
further computation, an indicator of the history of the ratio COF1/CCF2. 

Function initialized to 1. 0 in subroutine INIR and corrected by COG2/COGI 
in subroutine ITSR at each succeeding I(X) wall station but not used in a 
further computation, an indicator of the history of the ratio COG1/COG2. 
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DI 

DJ 

DOP 

DTM 

DTS 


DTXM 


DX 


DXB 

ET 

FPE 

FPPW 

FT 


Not used. 

Not used. 

Integer switch read in by subroutine COTR and used ^>y subroutines COTR 
and INIR to interpret the input data. See DOP in table VI. 

Arithmetic mean value of DELTA(*)=(DELTA(*)(I(X))-DELTA(X)(I(X)-l))/2. 

Convenient storage in subroutines ITSR and NDIR for the value of the dis- 
placement thickness DT(I) which is then altered to conform to the integral 
of the momentum equation. In the reset section of subroutine ITSR, after 
computing COF1, COF2, COG1, and COG2, DTS=DT(I). 

Arithmetic average value of DTX taken between the I(X) and I(X)-1 
x -stations where DTX is defined as the x-derivative of the displacement 
thickness DELTA(*) at I(X). DTXM is computed in subroutines ITFR and 
ITSR. In subroutine ITFR, DTXM=Q -P* ( 1 . -M(I)*M(I)) computed in the out- 
put parameter section only, after exit from the momentum -energy loop, 
for use by subroutine ITSR. Subroutine ITSR uses DTXM- at the head of 
the I(X) loop to compute DT(I)=DT(IB)+DTXM*(DX=X(I)-X(I-1)). DTXM is 
then recomputed at the head of the momentum loop and is used to compute 
QM at the head of the momentum loop. 

ft 

First backward difference in x, computed and used in subroutine ITSR. In 
subroutine ITFR, DX is initialized to 0. 0 just before the return to TUF. 

At the head of the I(X) loop in ITSR DXB=DX followed by 
DX=X(I) -X(IB=I-1). 

Previous DX loaded at the head of the I(X) loop in subroutine ITSR. 

Convenient store now initialized in subroutine INIR to 1. QE-08. ET is 
now supplied to subroutine PROFYL by subroutines ITFR and ITSR but is 
not used in the current version of subroutine PROFYL. 

PROFYL end value or outer boundary value of FP(J)=F'(ETA)=0. 0 set by 
subroutine ITFR before calling subroutine PROFYL in which FP(JY)=FPE. 

Velocity gradient defect at the wall, F Tr (ETA=0,, 0) or the inner boundary 
value used by subroutine PROFYL. FPPW is used to compute F’(J=2) by 
subroutine PROFYL. FPPW is set to FPP(l) by subroutine ITFR before 
entering subroutine PROFYL. 

Fraction of the free -stream flow that is turbulent. It is read in by subrou- 
tine COTR and used by surroutine INIR to compute FTU2=FT* U(I)*U(X) 
for 1=1,2. Subroutine ITSR recomputes FTE as FTE=FTU2/(U(I)*U(I)) 
for 1=2, 3, 4 Subroutine TRANS uses FTE as FT. 
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FTU2 

FV 

GAM 

GAMX 

GPE 

GPPW 

I 

10 

IBC 


Convenient store equal to FT*U(X)*U(I) in subroutine XNIR and used by sub- 
routine IT SR to get a scaled FT in subroutine TRANS. See FT. 

Convenient store for 1. -FP(J) in subroutines INIR, ITFR, and IT SR. 

Square root of the ratio of the friction velocity to the free-stream velocity 
in the starting solution. GAM equals the SQRT(TAU(1)/ 
(DENSITY(BLE)*VELQCITY(BLE SQUARED). GAM is initialized to 0. 0 in 
surboutine INIR. GAM is recomputed to SQRT(ABS(TAU(1))) in sub- 
routine ITFR in the momentum loop if IOP. EQ. 3, 7 and is then used to 
compute GAMX. 

Shear stress gradient parameter in the starting solution. See also GAM. 

Profile end value or outer boundary value of GP(J)=GP(JY)=0. 0. 

Value of GP(ETA=0. 0) obtained by subroutines ITFR and ITSR by taking 
the first differences of GP(ETA) following the return from subroutine 
PROFYL and computing the profile GPP(ETA). Then GPPW-GPP(l) is 
used as the inner boundary value when computing the GP(ETA) on the next 
momentum -energy loop iterate. GPPW is treated similarly to FPPW. 

Integer or index of the I(X) wall station where final profiles at each 
x -station are computed. 

Input integer switch, read in by subroutine CQTR. Subroutine INIR sets 
OI=IG. GI becomes a multiplying factor in computing CA in subroutines 
INIR, ITFR, and ITSR. 10. EQ. -1 for the inside surface of an axi sym- 
metric body such as a jet engine nacelle. IO. EQ. 0 for planar flow. 

10. EQ. +1 for flow on the outside of an axisymmetric body. OX is also 
used in the computation of CA1. 

Absolute value of the integer switch MOP, read in by subroutine COTR. 

IBC is used as a skip switch by subroutines ITFR and ITSR. E 
IBC.EQ, 1, the computation of the GP(ETA) profile in the energy equation 
section of the momentum -energy loop. In subroutine ITFR, if IBC.EQ. 2, 
then GPW ( I)= GB C (I) , GPPW/GPP(1), and STR(I)=-GPPW/D(1)*VEG(1). 

If IBC.EQ. 3, then GPW/GP(1)=GPPW=-GBC(I)*D(1)/VEG(1) followed 
by GPPW=GPPW*C*RL if IOP.EQ.4. E IBC.EQ. 3 and IOP.EQ.4, 
then STR(I)=GBC(I)/C/RL. Otherwise, STR(I)=0. 0. In subroutine ITSR, 
STR(I) is always computed after the exit from the momentum -energy loop 
as STR(I)=-VEG(1)*GPP(1)/D(1), but GPPW is not recomputed when 
IOP.EQ.4 as in subroutine ITFR. Otherwise, GP(I) and GPPW are com- 
puted as in subroutine ITFR. 
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IC 


ID 

IOP 

IT 


DC 

IXE 

DCF 


Index of the critical point, which is the point at which disturbances in the 
laminar flow occur and begin to amplify toward the transition point to full 
turbulent flow. At and beyond IC TURB(I+1) is computed by subroutine 
TRANS if TOP. EQ. 1. Otherwise, IC is determined as IC=I(X) at the lami- 
nar separation point on a test of F(JEF), WSTO(2), and FPP(1).GE. 0. 0 by 
subroutine ITSR. If laminar separation occurs, subroutine ITSR resets 
ITSO(10)=6, which causes a turbulent restart in subroutine ITFR provided in 
TUF ISTO(14). EQ. 1. IC is initialized to DC+1 by subroutine INIR after the 
exit from subroutine COTR. All points after the first critical point and be- 
fore points of fully developed turbulent flow are considered critical points. 
See also the single word common stores RC and IT. 

Number of stores available for the profiles on x. In the current version, 

ID is set equal to 100 by subroutine PUR, 

Integer switch read in by subroutine COTR. IOP is used by subroutines 
INIR, COTR, and ITFR to set up the starting conditions, profiles, and 
parameters for various options such as laminar or turbulent starting flows. 
See table VI. 

Integer initialized to 100 by subroutine COTR and listed by subroutine COTR 
and also by subroutine INIR when POP.NE.l. IT is reset to I(X)+1 after 
the x-station data read in by subroutine COTR if TURB(I). GT. WSTO(13), 
which is followed in turn by a reset of ISTO(10)=7 by subroutine ITSR on 
completing the computations at I(X)=IT. Subroutine ITSR then exits to TUF 
and to subroutine NDIR in turn which re -initializes the necessary quantities 
for a turbulent restart at I(X)=IT by subroutine ITFR on the call by TUF. 

IT causes a relist of the profile at I(X)=IT by subroutine ITFR. In sub- 
routine NDIR, IC is reset to IT for a forced fully developed turbulent flow 
beginning at I(X)=IT. 

I(X) of the last data station to be computed as determined by subroutine 
COTR. IX either is the number of x- stations whose data is either read in 
or linearly interpolated near the origin or BC=IS-1 when IS reaches 100. 

If (DC -I). LE. 0 after the call of subroutine FILE in subroutine ITFR, then 
ITFR resets ISTO(10)=8, which causes a case end by the main routine TUF. 
Subroutine ITSR uses DC as the limit on the I(X) looping. 

Convenient store. Not used. 

Integer index. DCF-T+1 in subroutine ITFR. It is used by subroutine ITSR 
as the starting index of the I(X) loop. 
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JD 

JDIV 

JE 


JEB 


JEF 


JEG 

JK 

JM 


JTUF 

JY 


Dimension of the arrays used to store the profiles on ETA (normal to the 
x -direction). Subroutine INIR sets JD=3G0 in the current version of the 
TUF. 

Integer multiplier which is read in by subroutine COTR and used by sub- 
routines COTR and INIR to increase the number of points on the YY(J), 

F(J), and GP(J) profiles. See table VI. 

Index of the ETA profile outer end point as used by subroutine FILE in 
listing the function profiles on ETA and by subroutine INTEG in summing 
the function profiles on ETA. In subroutine INIR, JE=MAXO(JEF, JEG) 
after JY, JEF, and JEG have been increased (by using JDIV) from the JY, 
JEF, and JEG read -in values. In the present versions of subroutines 
ITFR and IT SR, JE is reset to MAX0(JEF, JEG) following the return from 
subroutine PROFYL. Subroutine INIR resets JEF=JY if JEF.GT.JY. 

It also resets JEG=JY if JEG. GT.JY to prevent JE.GT.JY. 

Last computed value of JE in subroutine ITFR on entering the I(X) loop 
of subroutine ITSR and the last computed value of JE at the previous I(X) 
station thereafter. JEB is reset at the head of the I(X) loop. JE=JEB in 
subroutine NDIR in preparation for a turbulent restart by subroutine ITFR, 

JEF is initially the number of FP(J) points read in by subroutine COTR 
which then computes JEF using JDIV to increase the number of profile 
points. In the present versions of subroutines ITFR and INIR, JEF is used 
to recompute JE=MAXO(JEF, JEG) after the return from subroutine 
PROFYL. 

Energy profile analogue of JEF. See JEF. 

Integer computed in subroutine VIS, and the index J of the VE(J) profile 
at which VE(J). GT. VR where VR is a constant value of the nondimensional 
effective viscosity in the outer part of the turbulent layer. 

Value J-l in subroutines ITFR and ITSR during the computation of the 
FPP(J) profile. At J=l, subroutines ITFR and ITSR set JM=1 to get 
FPPW at the origin by the first forward difference. The remainder of the 
FPP(J) are by first central differences. The GPP(J) profile is computed 
similarly. 

Not used. 

Initially the number of the YY(J) profile points on ETA as read by sub- 
routine COTR. Just before reading in the YY(J) subroutine COTR recom- 
putes the program final JY by using JDIV. JY values are the preset 
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boundary values of FP(J) and GP(J). The computed JY(MAX) must be 
JY(MAX). LE, 300 to continue the case. 


KB Real function initialized to 0. 0 by subroutine INIR. Subroutine TRANS re- 

computes KB before using subroutine INDEX to select the 
KF(RDF). GT.KB. 

KMI Upper index in the momentum and momentum -energy DO loops in sub- 

routines ITFR and ITSR. Subroutine INIR sets KMI=15. 

LOOP Not used. 

LOOPF Not used. 

ML Free-stream Mach number at X=L. ML is set equal to MR in subroutine 

INIR after the return to subroutine INIR from subroutine COTR where MR 
is the result of either the MR card read in or a recomputation. Subrou- 
tine ITFR uses ML in the computation of Q, a parameter in equation 
(U-14). See DOP in table VI. 

MOP Integer switch read in by subroutine COTR. See table VI. 

MR Reference free-stream Mach number. MR is initially read in by subroutine 

COTR but may be recomputed. See the comment in table VI. See also ML. 

NU Nusselt number. If IOP.EQ. 4, NU is computed in subroutine ITFR in the 

output parameter section as NU=RL*PR*ST(2). NU is not used in a com- 
putation. 

OI Multiplying factor. OI is set to 10 by subroutine INIR. See 10, CA, 

and CA1. OI is used to compute CA in subroutines INIR and ITFR and 
also CA1 in subroutine ITSR. 

P Parameter in equation (n-14). P equals x-derivative of 

U(I)*DELTA(*)/U(I). Subroutine INIR sets P=BS. See BS. If IOP.EQ. 4, 

P is recomputed in the laminar section of subroutine ITFR according to 
equation (II-29a) and used in the solution of equation (11-25). If IOP.EQ. 2,6 
(turbulent flow), subroutine ITFR resets P=TAU(1)*BS. If IOP.EQ. 3, 7 
(also, a turbulent flow), subroutine ITFR does not reset P. If 
ISTO(IO). EQ. 6, 7, subroutine NDIR resets P=UX*DT(I) for a turbulent re- 
start by subroutine ITFR. 

PB P parameter at 1-1 x-station where PB=P at the head of the I(X) loop in 

subroutine ITSR. PB is used to compute PM (average p), which is used to 
compute C 2 , which is used to compute B(J, 1) and B(J, 3). PM and RM 
are both arithmetic averages. 
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POP 

PR 

PRT 

Q 

QB 

QM 

QRB 

QRM 

R 


Integer switch read in by subroutine COTR and used as a list switch. See 
POP in the input data sample, table VI. POP is used by all of the main 
subroutines. 

Prandtl number. PR is the same constant for all subroutines. Subroutine 
1NIR initializes PR=0. 78. K WSTO(15).NE. 0. 0, subroutine INIR resets 
PR=WSTO(15). 

Turbulent Prandtl number. Subroutine INIR sets PRT=1. PRT is the 
same constant for all of the subroutines. If WSTO(14). NE. 0. 0, subroutine 
INIR resets PRT=WSTO(14). 

Product DELTA(*)*DENSITY(BLE)*U(I)/(DENSITY(BLE)*U(I)). Q is 
initialized to 0. 0 by subroutine INIR for the laminar flow equation (11-25). 

See also equation (II-29b) for a recomputation in the laminar flow section of 
subroutine ITFR if IOP.EQ.4. Q is otherwise recomputed in subroutine 
ITFR as given by equation (11-41) for Q as an integrated function. 

Quantity Q at the 1-1 x-station. QB is recomputed and used only in the 
momentum loop of subroutine IT SR. QB=DTXB+PB(1. -M(IB)*M(IB)) where 
DTXB is a corrected value of the displacement thickness. 

Mean value of Q and QB computed in the momentum loop of subroutine 
IT SR and used only in subroutine ITSR. (Not an arithmetic mean. ) 
QM=DTXM+PM*(1. -. 5*(M(I)+M(IB))**2. 

Quantity QB+RB at the 1-1 x-station. Computed at the head of the raomen 
turn loop in subroutine ITSR. 

Mean value of Q+R computed and used only in subroutine ITSR. 
QRM=QM+RM. 

Radius parameter in equations (11-14) and (11-25) for.laminar flow. 

R equals the (x -derivative of wall radius)*DELTA(*)/(wall radius) and is 
initialized to 0. 0 by subroutine INIR. If IOP. EQ. 4, R is recomputed in 
the similar laminar flow section of subroutine INIR from RL=RDT(1),C, 
the slope of RW at the origin, and from a slope multiplying function of 
RW. The radius parameter R is the R(*) of equation (H-29c). For 
IOP.EQ.lor5 and nonsimilar laminar flow, R is computed from DT(1), 
RDT{1), the slope of RW at the origin, and RW(1). For all other condi- 
tions R is recomputed in subroutine INIR if ABS(RW(1)/DT(1)). GE. 1. , 
where R(laminar)=R(turbulent)*RDT(l). For IOP.EQ.4, R is recom- 
puted in subroutine ITFR after a reset to R=0. 0 by the same formula as 
in subroutine INIR but with a changed value of C=F(JE)*C on a RW(I) slope 
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test. Otherwise, R remains as computed in subroutine INIR. In subroutine 
ITSR, R is computed in the momentum loop R=RX*DT(I) where RX is 
computed ahead of the momentum -energy loop if ABS(RW(I)/DT(I)). GE. 1. 

R is also recomputed in subroutine NDIR for a turbulent restart on 
ISTO(IO). EQ. 6, 7 with R=RX*DT(I). 

Value of R at the 1-1 x -station, or RB=R in the transfer section ahead 
of the momentum -energy loop in subroutine ITSR. 

Critical Reynolds number or Reynolds number at the point of instability. 
Given by RC=DE LT A(* )* (FREE STREAM VELOCITY)/(EFFECTIVE VIS- 
COSITY AT THE WALL). RC is computed in subroutine TRANS. RC in- 
cludes the effects of pressure gradient, heat transfer, surface roughness, 
and surface curvature. At the critical point IC the quantity RDTK.GE.RC 
where RDTK is computed in subroutine ITSR. 

Quantity R(DELTA(*)) used in computing the starting profiles of both 
F’(ETA) and G 1 (ETA) is initialized to 0. 0 by subroutine INIR. If IOP.EQ. 4, 
subroutine INIR recomputes RDF/C *RL when RL=RDT(I), which is reset 
in subroutine COTR if IOP. EQ. 4. AND. DQP. LT. 0. That is, 
RDT(l)=X(2)*U(2)*WSTO(3). Here U(2)=M(2). If IOP. EQ. 1, 5 (laminar 
flow), subroutine INIR resets RDF=RDT(I) for 1=1. For turbulent flow 
(IOP. EQ. 2,3,6, 7), subroutine INIR resets RDF to 1. 0. RDF is used to 
compute Q in subroutine ITFR except for the IOP.EQ. 4 option. If 
IOP.EQ. 4, subroutine ITFR resets RDF=RDT(2), since the starting pro- 
file is at I(X)=2. Subroutine ITFR uses RDF to compute B(J, 4) for 
both F’(ETA) and G’(ETA). 

Local Reynolds number computed in subroutines ITFR and ITSR from the 
displacement thicknesses DTK(I) and DT(I) and the effective viscosity 
VE(1) at the wall. RDTK=1./VE(1)*DTK(I)/DT(I). RDTK is used by sub- 
routines ITFR and ITSR to compute RMTW and by subroutine TRANS to 
compute the effect of surface roughness. H RDTK. LT. RC, in subroutine 
TRANS, TURB(I+1) remains as previously set by subroutine COTR. Other- 
wise, IC=I(X) and subroutine TRANS recomputes TURB(I+1) when 
RMTW.GE.RMC for all I(X) stations succeeding I(X).GE.IC. 

Reynolds number used in the laminar similarity solution IOP. EQ. 4 
initialized to 0. 0 by subroutine INIR. On return from subroutine COTR, sub- 
routine INIR resets RL=RDT(1) and uses RL in computing P, R, and 
RDF. Subroutine ITFR also uses RL on the IOP.EQ. 4 option to compute 
P, Q, R, VP,, and RDT(2). 



RM 


Arithmetic average of R and RB in subroutine ITSR. It is used to compute 
QRM, which in turn is used to compute CO in the momentum loop and C7 
in the energy section of the momentum -energy loop. 

RMS Not used. 

RMT Transition Reynolds number RMC+RD in subroutine TRANS where RD is 

the corrected Reynolds number and RMC is the critical Reynolds number 
based on the momentum thickness. Both RMC and RD are computed in 
subroutine TRANS. Subroutine TRANS computes TURB(I+1) by the method of 
Dhawan and Narasimha when RMTWF . LE . RMT and resets the remaining 
TURB(I+1)=1. 0 and TOP=0 when RMTWF. GT. RMT. RMT is not tested 
unless first RMTW.GE.RMC. 

RMTW Local Reynolds number computed from RDTK, DTK(I), and the momentum 
thickness MT(I) where RMTW=RDTK/DTK(I)*MT (I) . RMTW is computed 
in subroutines ITFR and ITSR for use by subroutine TRANS. RMTW is 
used by subroutine TRANS when I(X).GE.IC. If on testing RMTW the test 
results in RMTW.GE.RMC, all succeeding TURB(I+1) are recomputed. 

RMC is the critical Reynolds number based on the momentum thickness. 
RMTW is tested only if RDTK. GE.RC. 

RX x-Derivative of the body radius at the wall divided by the radius of the wall. 

RX is a function of RW(I) and X(I), where 1=1, 1-1, 1+1, and used by sub- 
routines ITSR and NDIR. Subroutine ITSR initializes RX=0. 0 and then re- 
computes RX when ABS(RW(I)/DT(I)). GE. 1. Subroutine ITSR lists RX 
each time RX is computed. Subroutine ITSR uses RX to compute CA1. 
Subroutine NDER also computed R=RX*DT(I) in the re -initialization section. 

RXRDF Not used. 

SHR Specific heat ratio set to 1. 4 by subroutine ENTER and used by subroutine ITFR 

to compute DB(J) in subroutine ITFR by equation (11-32) and for B(J, 5) of 
the energy equation coefficient profiles. SHR is also supplied to subroutine 
VIS. Subroutine ITSR uses SHR to compute RDT(I) in the momentum loop, 
also COF1, COF2, COG1, and COG2 later. Subroutine NDIR uses SHR to 
recompute MT(IC) and CMU in the re -initialization section. Subroutine 
MIR uses SHR in computing TF(I). 

SK von Karman constant in the empirical effective viscosity term. It is set to 

0.41 by subroutine MER and used by subroutine ITFR to compute GAMX and 
STRX before computing VH and VHP for Q and subroutine VIS. 
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STC 

STRX 


STUF 

TO 

TFR 


TOP 


UX 


VPB 


Sutherland viscosity constant in degrees Kelvin. Used in equation (n-18). 

STC is set to 110 by subroutine INIR and is used by subroutine VIS. 

Stanton number gradient parameter in the starting solution (see eqs. (n-37) 
and (H-39)). STRX is initialized to 0. 0 by subroutine INIR and is used by 
subroutine ITFR in the solution of the approximate energy equation for turbu- 
lent similarity flow with variable properties. Subroutine ITFR computes 
STRX if GAM.GT. (ZERO=l. 0E-10) when G AM= SQRT ( AB S(T AU ( 1 ) )) . 

STRX is also used by equations (H-32) and (11-42) for the DB(ETA) profile, 
which is used in the determination of Q for either laminar or turbulent 
flow. 

Not used. 

Free-stream total temperature in degrees Kelvin. 

Convenient store for the function 1. +((SHR-1. )/2. )*MR*MR where SHR 
is the specific heat ratio and MR the reference free-stream Mach num- 
ber. TFR is computed by subroutine INIR and then used to compute the 
U(I) from the M(I) Mach number if MR. GE. 0. 0. OR. DOP. LE. 0. Sub- 
routine INIR also uses TFR to compute CMU of equation (H-34). Sub- 
routine NDIR uses TFR to recompute CMU for a following turbulent re- 
start. See also TF(I) which uses M(I) in place of MR. 

Integer switch. If TOP.EQ.l subroutine IT SR calls subroutine VIS 
followed by subroutine TRANS to compute the turbulence intermittency 
TURB(I+1) used by subroutine VIS to compute both the effective viscosity 
and conductivity. TOP is read in by subroutine COTR but is reset to 0 if 
IOP. EQ. 2, 3,4, 6, 7 for the turbulent flow options in order to prevent a 
later reset in subroutine INIR of TURB(I) and a call of subroutine TRANS 
by subroutine ITSR. See the comment on TOP in the input data section, 
table VI. 

x-Derivative of U(I) divided by U(I), a function of X(I) and U(I) obtained 
by taking a central difference. UX is computed by subroutine ITSR and 
used by both subroutines ITSR and NDIR to compute P=DT(I)*UX in the 
momentum equation loop of subroutine ITSR and in the re-initialization 
section of subroutine NDIR, 

Nondimensional aspiration flow at the 1-1 x-station. It is similar to the 
VP of subroutine ITFR but at I(X). Subroutine ITSR computes 
VPB=VW(IB)/U(IB), where IB=I-1. If IABS(DOP). EQ. 1 subroutine ITSR 
recomputes VPB=VPB/DB(1) before entering the momentum loop. 
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VPM Quantity similar to VPB and VP and computed as a mean value in the mo- 

mentum loop before the call of subroutine PROFYL. VPM is recomputed as 
VPM*2. 0/(C(l)+DB(l)) if IABS(DOP). EQ. 1. 

XT Tolerance set to 0. 005 by subroutine INIR for use by subroutine ITFR in 

testing for exit from momentum loop. To exit, ABS(F(JE(ETA))-1. ). LT.XT. 
In subroutine ITSR, test ABS(F(JE)-1. ) only if ABS((FPP(1)-FPPW)/ 
FPPW). LE. XT. For the momentum -energy loop the final test for exit is on 
ZERO. However, in the convergence test section note the use of XT, 

XK Correcting factor used by subroutine TRANS. Subroutine INIR initializes 

XK=0. 0. In subroutine TRANS, XK is used to compute 
KB={KB*XK+DK*DX)/(XK+DX), which in turn is used in computing KK by 
subroutine INDEX. In the present version, BK=DK since XK=0. 0. 

ZERO Tolerance initialized to 1. 0E-10 by subroutine INIR. ZERO is used by 
subroutine ITFR as a tolerance to leave the momentum-energy loop if 
ABS((GP(1)-GPW(I)). LT. ZERO. XT is the tolerance in the subroutine ITFR 
momentum loop. ZERO is used by subroutine ITSR in conjunction with XT 
to exit the momentum -energy loop on tests of GP(1), GPW(I), GPPW, and 
GPP(l). XT alone is used in the subroutine ITSR momentum loop. 


COMPLETE PROGRAM LISTING 

A complete program source listing with detailed comments in each subroutine is 
given in this section. The subroutines are arranged in the order they would have if 
overlays were required. Otherwise, any order of the subroutines may be used. 


Main Program TUF 

$IBFTC TUF 

C TUF IS THE MAIN SUPERVISORY ROUTINE FOR THE SOLUTION OF THE 

C BOUNDARY LAYER EQUATION PROFILES AND PARAMETERS. 

C TJF, THE MAIN ROUTINE, CALLS SUBROUTINES INIR, I TFR , I TSR , NDI R. 
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c ********* MAIN COMMON V-3 TUF *************** 
COMMON /TUFA/ATUF, 

8(300,5 ) , 

BL»BH,BS,RK, 

CWUOOI ,CF( 100 J ,CLIS(400),CAY<300), 
CA,CA1,CC,COB,CMTF,CMTG,C,COAL,CMU, 

DBI 300 ) »DBB(30G ) » D( 300 ) » DP I 300) »OPB( 300) * 

DT(IOO) , DTK! 100 ) , 

DX,DTXM,DOP,Dl ,DJ,DXB,DTM,DTS, 

ET, 

FBI 300 )»F8B(300)»FPBB< 300 ) , FPB I 300 > , FP ( 300 ) , F ( 300) 
FPP(300)*FPPB(300), 

FPE,FPPW,FT,FV,FTU2, 

GPBI300 ) ,GPBB< 300) ,GP< 300) ,GPP( 300) , GPPBI300) , 
GBC(100),GPW(100>, 

GPPW.GPE, GAM, GAMX, 

HTI100), 

ISTDI 16 ) , 

I, IC.IO, IBC, IOP, IX,IXE, IT, IXA, 10, IXF 
COMMON /TUFJ/ JTUF, 

JTRIIOO), 

JE,JK,JM,JY,J£F»JEG»JDIV»JEB»JD, 

KB, KMI , 

LABEL! 1 32 ) , 

L00P»L00PF, 

M(100),MT( 100) , 

MOP, MR, ML, 

NU, 

01, 

P,PB,PM,POP,PR,PRT, 

QB,QM,0RR,QRM,Q, 

RW(IOO) ,RDT(100), 

RB,RM,RC»RMS»RMT,R,RDTK,RXRDF»RL»RMTW,RDF»RX 
COMMON /TUFS/STUF, 

1 STRI100),SW(100),SF!100),ST(100), 

2 SHR,STC,SK,STRX, 

3 TAUI300), 

4 TURB(100),TF(100), 

5 TO, TOP, TFR, 

6 UI100), 

7 UX, 

8 V6I300) ,VEGI300),VH(300),VHP(300),VHPP( 300 ) , 

9 VW(IOO), 

A VPB , VPM , 

1 HSTOI20), 

2 XI100I, 

3 XT, XK, 

4 Y ( 300 ) , Y Y ( 300 ) , 

5 ZERO 


REAL KB, M,ML , MR, MT, NU 
INTEGER DOP , POP , TOP 

C ******** *end of MAIN COMMON TUF-V3* ************* 

DIMENSION KST0PI5) 

DIMENSION XMAS 1 10 ) 
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c 

c 

c 


c 

c 

c 


c 

c 

c 

134 


GET THE BOUNDARY CONDITIONS AND X-STATION DATA. 
INITIALIZE THE ARRAYS* PROFILES} PARAMETERS. 

RETURN TO HERE ALSO FOR THE NEXT CASE. 

WRITE (6,99) 

CALL INIR(KSTOP,XMAS> 

IF THE MODIFIED PROFILES OF EITHER F M ETA > ,G • ( ETA ) , 
Y(ETA> HAVE TUO MANY POINTS ( JE F, JEG , J Y) * JD I V. GT. 300 
GO TO THE NEXT CASE. 

IF ( ISTO(10 KEQ.9 ) GO TO 101 

GET THE STARTING PROFILE, EITHER LAMINAR OR TURBULENT 
ENTER HERE ALSO FOR A TURBULENT RESTART AFTER AN EXIT 
FROM SUBR NDIR. 

WRITE (6,99) 

CALL I TFR 


IF I.LE.IX OR ONLY THE STARTING PROFILE IS TO BE 
COMPUTED GO TO THE NEXT CASE. 

IF < ISTO(IO) .EQ.8 ) GO TO 101 

COMPUTE ALL X-STATION PROFILES AND PARAMETERS EXCEPT 
THE STARTING PROF ILES, PARAMETERS. 

CALL ITSR 


LIST THE TABLE OF X-STATION WALL PARAMETERS, THE 
TABLE OF CORRECTION COEFFICIENTS (CLIS),.AN0 
RE-INITIALIZE THE NECESSARY QUANTITIES AT f ( X) =1 C 
ON EITHER A FORCED TRANSITION TO TURBULENT FLOW OR 
A LAMINAR SEPARATION WITH I STO ( 14) .EO. 1 FOR A 
TURBULENT RESTART IN SUBR I TFR CN A CALL FROM TUF. 
CALL NDIR 


C 

C 

C 

C 

C 

c 

C 

C 


IF ISTn( 10 ) -EQ.4 GO TO THE NEXT CASE ON COMPLETING 
ALL X-STATIONSo 

IF I STO( 1 0 ) o EQ. 5 GO TO THE NEXT CASE AFTER A NON- 
SCHEDULED CASE END ON F ( JEF ) .L T .0. 0. OR .F ( JEF ) . GT. 
WSTO ( 2 ) UNLESS TOP. EQ. 1 . AMD. I . L T. I X. (A CALL OF SUBR 
TRANS DID NOT OCCUR). 

IF ( IST0U0).EQ.4 o 0RoIST0(10».EQ.5 ) GO TO 101 

TO PREVENT A TURBULENT RESTART AFTER A LAMINAR 
SEPARATION SET I STO ( 1 4 ) . NE . 1 . 

IF ( I STO( 1 0 ) „E Q.6. AND. I STO ( 1 4 ) . NE. 1 ) GO TO 101 


ENTER SUBR I TFR FOR A TURBULENT RESTART ON EITHER 
A LAMINAR SEPARATION AT I(X)= IC OR A FORCED 
TRANSITION AT I ( X }= IC. 

GO TO 134 


99 FORMAT (1H1) 


END 
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Subroutine A6IR 


ilBFTC A6 1 D 


SUBROUTINE A6IR 

C SUBR A6 1R READS AND LISTS THE COMMENT ACCOMPANYING THE DATA INPUT, 

C SUBROUTINE A6IR IS CALLED BY SUBROUTINES INIR,COTR»ITFR*NDIR. 

ABBREVIATIONS., . 

LHS LEFT HAND SIDE. 

RHS RIGHT HAND SIDE. 

CC CARD COLUMN 

DIMENSION ISOR I 22 > 

COUNTER FOR LINE NUMBERING, 

LCTR= 0 

ENTRANCE TO THE INITIAL LOOP, 1ST MAIN, FOR CARDS OF 
TYPE 0 TO BE LISTED CC1-T2 WITH A LINE COUNT. 

ALSO FOR THE MAIN INDEX CARD WITH THE DISCRIMINATORS. 
CARDS READ-IN BY THIS LOOP ARE CALLED GROUP I. 

THE 1ST 2 WORDS ARE USED BOTH AS LIST AND TEST 
WORDS BY THE INITIAL LOOP. THE 13TH WORD AS A 
DISCRIMINATOR WORD IS USED BY THE INITIAL LOOP ONLY. 
IF THE 2ND MAIN LOOP IS ENTERED THE 1ST 3 WORDS OF 
THE LAST CARD READ-IN BY THIS LOOP BECOME THE INDEX 
01 SCR I MI NATOR WORDS. 

104 READ (5,997) ( ISOR(K), K~ 1,14 ) 

I ROT= ISOR(i) 

IVLS= ISQR(Z) 

I VLE- IS0R(3) 

THE 4TH INDEX DISCRIMINATOR WORD. I RFT IS A TEST WORD 
TO LIST A FORTRAN IV CARD CCI-72 ON THE PAGE LHS WITH 
CARRIAGE CONTROL AND LINE NUMBERING. A TYPE 0 CARD. 

I RFT= I SOR{ 13) 

IF TRUE THIS CARD IS THE MAIN INDEX DI SCR I MI NATOR 
CARD FOR THE FOLLOWING GROUP 2 CARDS. 

IF ( I RFT.E Q. I ROT ) GO TO 106 

105 LCTR= LCTK + 1 

LIST A TYPE 0 CARD. 

WRITE (6,994) (ISOR(K), K= 1,12 ) , LCTR 
IF ( IRFT.EO.IVLS ) RETURN 

RETURN TO THE INITIAL LOOP READ. 

GO TO 104 

FOR A DECK TO READ AND WRITE ONLY TYPE 0 CARDS FOLLOW 
THIS CARD WITH THE 994 AND 997 FORMAT CARDS AND THEN 
THE END CARD. DELETE THE REMAINDER OF THE DECK. 

*** *** ENTER THE 2ND MAIN LOOP THE 1ST SUB LOOP #** *** 

LIV WHEN RESET TO 1 BY A CARD IN FRONT OF 
A SUB-DECK OF CARDS ENABLES THE DECK TO BE LISTED 
ON THE PAGE LHS WITHOUT CARRIAGE CONTROL PROVIDED 
ALL CARDS OF THE DECK HAVE CC1-6 NOT IDENTICAL WITH 
THE 3RD INDEX DISCRIMINATOR WORD. THE 1ST CARD 
SUCCEEDING THE SUB-DECK RESETS LIV TO 0 PROVIOED 
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THE CARO 1ST WORD IS IDENTICAL WITH THE 3RD INDEX 
DISCRIMINATOR WORD. 

CARDS BELONGING TO THE SUB-DECK WHOSE 1ST WORDS HATCH 
EITHER THE 2NQ OR 3RD INDEX DISCRIMINATOR WORDS 
WILL LIST ON THE PAGE LHS WITH CARRIAGE CONTROL. 

LIV MUST BE 0 TO ENABLE A RETURN TO THE CALLING 
ROUTINE, OR A TRANSFER TO THE 2ND SUB-LOOP WITH A 
RETURN TO THE 1ST SUB-LOOP ENTRANCE FOR A CARD READ. 
THE 1ST AND 13TH WORDS OF THIS READ-IN BECOME TEST 
WORDS IN THE 1ST SUB-LOOP. HOWEVER, THE TEST FOR A 
RETURN PRECEEOS THE TEST ON THE 13TH WORD. IF THE 
13TH WORO IS TESTED THEN A MATCH WITH THE 1ST INDEX 
DISCRIMINATOR WORO CAUSES A PICK UP OF A TYPE 
2 CARO TO COMPLETE A FULL LINE CF PRINT, 122 COLUMNS. 
THERE IS NO RETURN TD THE INITIAL LOOP FROM THE 
2ND MAIN LOOP. CARDS READ-IN BY THIS LOOP ARE 
CALLED GROUP 2 CARDS WHICH WITH THE EXCEPTION 
MENTIONED HAVE THE TEST WORD IN CC1-6. 

EXCEPTING THE RETURN CARO THE CARDS READ AT EFN 107 
LIST EITHER AS A TYPE1 CARD, CC1-42, OF A FULL LINE, 
OR AS A TYPE 4 OR 5 CARD LISTING ON THE PAGE LHS 
CC1-80 WITH OR WITHOUT CARRIAGE CONTROL. ANY CARO 
READ-IN AT EFN 107 RETURNS CONTROL TO THE CALLING 
ROUTINE IF L I V= 0, AND CC1-6 IS NOT IDENTICAL WITH 
EITHER INDEX 01 SCR IMI NATOR WORDS 2 OR 3 BUT IS 
IDENTICAL WITH THE INDEX 01 SCRIMI NATOR WORD 1. 

NEITHER RETURN NOR TRANSFER CARDS ARE LISTED. 

06 LCTR* 0 
LIV* 0 

RE-ENTER HERE EITHER FROM THE 2ND SUB-LOOP ON A 
TRANSFER CARD OR AFTER LISTING CARDS OF TYPES 4,5. 

07 READ (5,997) ( 1S0R (K), K~ 1,14) 

I RI T= ISOR ( 1) 

IF ( IRIT.NE. IVLS > GO TO 115 

14 LIV= 1 

GO TO LIST PAGE LHS CC1-80 WITH CARRIAGE CONTROL, A 
TYPE 4 CARD, BEFORE RETURNING FOR ANOTHER CARD READ. 

GO TO 119 

15 IF ( IRIT.NE. IVLE ) GO TO 117 

RESET THE SWITCH TD EXIT FROM THE TYPE 5 LIST LOOP. 

16 LIV* 0 

GO TO 119 

17 IF ( LIV.EQ.C I GO TO 118 

LCTR= LCTR ♦ 1 

LIST ON PAGE LHS CC1-80 BUT WITHOUT CARRIAGE CONTROL. 
LIST A TYPE 5 CARD. 

171 WRITE (6,995) (ISOR (K), K= 1,14), LCTR 

RETURN TO THE 1ST SUB LOOP ENTRANCE FOR ANOTHER READ. 
THE NEXT CARD CAN BE EITHER A TYPE 4 OR 5 CARD. 

GO TO 107 

IF THE 1ST WORD OF THIS CARD,CCl-6, IS IDENTICAL WITH 
THE 1ST W0RD»CCl-6, OF THE INDEX DISCRIMINATOR CARD 
THEN RETURN TO THE CALLING ROUTINE. THIS IS THE 
EXIT FROM A6IR AFTER THE 2ND MAIN LOOP IS ENTERED. 
LIV MUST BE 0 TD MAKE THIS TEST. 

118 IF ( IRIT.EQ. IROT ) RETURN 

1181 I RFT= ISQR( 13) 

IF ( IRFT.EQ. IROT ) GO TO 121 
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119 

191 


LIST THE LHS OF THE PAGE CC1-80 WITH CARRIAGE CONTROL 
AND THEN RETURN TO THE 1ST SUB LOOP ENTRANCE FOR 
ANOTHER CARD. LIST A TYPE 4 CARO. 

LCTR* LCTR 1 

WRITE (6,999) (ISOR ( X ) , K= 1,14 >, LCTR 

RETURN TO THE 1ST SUB LOOP ENTRANCE FOR A READ-IN. 

THE NEXT CARD MAY RE EITHER A TYPE 1 OR 4. 

GO TO IDT 

READ-IN A CARD TO BE LISTED AS THE RHS OF A FULL LINE 
WITH CARRIAGE CONTROL. A TYPE 2 CARD. LIV MUST BE 0. 
READ < 5,997) (ISOR (X) » K = 8,21 ) 


1211 


122 


1221 


LCTR* LCTR ♦ 1 

LIST A FULL LINE WITH CARRIAGE CONTROL. 

LIST COLUMNS 1-42 ARE FROM A TYPE 1 CARD WHILE LIST 
COLUMNS 43-122 ARE FROM A TYPE 2 CARD. LIV* 0. 

WRITE (6,996) ( ISOR (K>, K* 1,21), LCTR 

*** ENTER THE 2ND SUB-LOOP OF THE 2ND MAIN LOOP *** 

THIS LOOP CAN BE ENTERED ONLY IF LIV* 0. 

READ (5,997) (ISOR (K), K~ 1,14 ) 

I RI T= ISOR ( 1 ) 

THE CARD JUST READ-IN IS CALLED THE TRANSFER CARD IF 
A MATCH OCCURS. 

IF ( IRIT.EQ.IRDT > GO TO 107 

LCTR* LCTR + 1 

LIST ON THE PAGE RHS CC1-80. A TYPE 3 CARD. 

WRITE (6,998) (ISOR (K), K = 1,14 ), LCTR 

THE NEXT CARD WILL EITHER BECOME A TRANSFER CARD OR 
LIST AS A TYPE 3 CARD. 

GO TO 122 


994 FORMAT ( 12A6, 15X, 14 ) 

995 FORMAT ( IX, 1 3A6 , A2, 45X, 14 ) 

996 FORMAT ( 2D A6, A2,4X, 14 ) 

997 FORMAT ( 13A6,A2) 

998 FORMAT ( 42X , 13 A6 , A2, 4X, I 4 ) 

999 FORMAT ( 1 3A6, A2 , 47X, 1 4 ) 


END 
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Subroutine VIS 


*IBFTC VISO 


SUBROUTINE VIS (JE, JY t JD» YY, FP , FPP, GP 

1 VH, VHP, TIJR8, SW, CW, SHR, BH, STC, TO, 

2 PR, PRT , JK, VE, VEG, ISTO ) 


, GPP, D, DP, 
TF, RDT , DT, 


TAU, 

FJE, 


C 

C 

C 


VIS C0MPUT ES THE EFFECTIVE VISCOSITY AND CONDUCTIVITY 
PROFILES FOR BOTH LAMINAR AND TURBULENT FLOWS. 

SUBROUTINE VIS IS CALLED BY SUBROUTINES INI R , I TFR , I TSR,NDI R. 


DIMENSION ISTO (16) 


DIMENSION YY(JD), FP(JO), 
DIMENSION TAU(JO), VH(JO) 


FPP(JO), GPIJOJ, GPP(JD), DIJDI, 
VHPCJDJ, VE(JD), VEG(JD) 


DPI JD) 


DATA SIG3, SK, BK/ 328.51, 0.41, 0.016/ 
DATA ZERO/ 1.06-10/ 


C 

C 


100 


JK= JE 

SUTHERLAND VISCOSITY LAW EQUA 11-18. 

DO 100 J=1,JY THE LAMINA * VISC0SITy TERM IS GIVEN BY VHUJ/ROT. 
VH(J)=0(J)**2.5*(1./TF+STC/T0)/ID< J ) /TF+STC /TO ) 

C ONT I NUE 


C 

c 


120 


IF 


IF TUR0( I ) .LT.O THEN THE EFFECTIVE VISCOSITY IS 
RE$ET= THE LAMINAR VISCOSITY. 

< TURB.LT. ZERO) GO TO 400 


TEMPORARY STORAGE. 

DO 120 J=l, JE 

VHP! J) = l.-D( J)*< l.-FPI J ) ) 

CONTINUE 

CALL INTEG (JE, JD, YY, VHP, 0.0, VHP) 

VR=VHP{ JE) /FJE*BK 

GAM* SORT ( ABS (TAU(l) )*D{ 1 ) ) 

YPS=SW/DT*RDT/VH( 1 ) *G AM/30.0 

*(1.0+3.0*EXP(-SW/DT*RDT/VH(1)*GAM/150.0) ) 


J=l, 


fX?S U JLT HE TURatJLENT VISCOSITY TERM, STORE IN VE(J) 
LOAD V EG ( J ) WITH THE TURBULENT CONDUCTIVITY TERM. 
SET THE VISCOSITY CORRECTION TERM.VHPU), = l. 

J Y 


200 


DO 200 
JK=J 

CHI3«CHI *CHI *CHI J)*SQRT(D(J)*ABS(TAU(J) ) ) +YPS ) 

VE( J )=VH( J) *( 1.+CHI3*CHI/(CHI3+SIG3) )/RDT 

vhp! jUi!o J)/PRT+VH(J,+a ‘ /PR ‘ l * /PRT,/ROT 

IF t VE I J ) .GT.VR ) GO TO 210 

CONTINUE 

SO TO 300 
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C CONTINUE COMPUTING THE TURBULENT VISCOSITY AND 

C CONDUCTIVITY TERMS FOR THE REMAINDER OF THE PROFILE. 

210 CONTINUE 

DO 220 J=JK, JY 
VE( J )=VR 
VEGI J ) =VR/PRT 
VHP ( J ) *1.0 
220 CONTINUE 
l VEL* 1 

C TO HERE ALSO IF THE OUTER FUNCTION IS SKIPPED. 

300 CONTINUE 

C IF (ABS(CW).GE.l.OE-lO) RECOMPUTE THE EFFECTIVE 

C VISCOSITY CORRECTION » EQUA. IV-2. 

301 IF I ABS (CW).LT.ZERO) GO TO 370 
C EFFECTIVE VISCOSITY CORRECTION VHPIJ). 

DO 310 J*l, JY 


C RESET FROM VHP(J)=1. 

VHP! J ) =0.0 

C IF FPPV.LT.1.0E-10 THEN VHPUI REMAINS 3 0.0. 

FPPV*DP( J)*(1.-FPU))-D< J)*FPP< J) 

IF (ABS(FPPV).LT.ZERO) GO TO 310 
FPV=D( J »*( I.-FPI JI) 

BM=( TF— 1. ) /TF 
CU=( DT/CH )*FPV/FPPV 
81-1 .-CU 

DC=-FPV/FPPV*IBH*GPP( J ) +2. *BM*FPPV*FPV ) 

1 /(l.-BH*GP(J)-BM*FPV*FPV)/PRT 
B2=i.-CU*( l.+DC 1*81 
IF (ABSIB1*B2).LT.ZER0) GO TO 310 
B3=i .-CU* I l.+DC ) 

B4=(i«-CU*(l.+DC)l/81 
IF (B4.LT.ZER0) GO TO 310 
B5=l.-4.0*(l.+CU>*<l.+0C)*CU/B2 
IF ( 85. LT. ZERO) GO TO 310 

C VHP I J I = EFFECTIVE VISCOSITY CORRECTION. 

VHP< J ) ®SQRT ( BA) *B5**1 • 5*ABS( B1 > 

310 CONTINUE 
I VEL- 2 

C IF TO HERE FROM EFN 301 VHP(J)*1. 

370 CONTINUE 

TURB IS THE TURBULENT VISCOSITY FACTOR AND *. 0 
FOR FULLY LAMINAR FLOW. TURB COMES FROM EITHER 
SUBR COTR OR SU8R TRANS. 

TURBII) UNCORRECTEO FOR THE LONGITUDINAL CURVATURE, 
VHP I J ) , IS GIVEN BY EQUA IV-4. 

EFFECTIVE VISCOSITY* TURBIIDVI SCOSITYITURBULENTI + 

( 1. - TURB! II)*VISCOSITY( LAMINAR) . 

THE EFFECTIVE VISCOSITY = TURB*< V I SCOS I TY( TURBULENT ) - 
VISCOSITYILAMINARD + VISCOSITY (LAMINAR). 

DQ 380 J=l, JY 

VEI JI* THE CORRECTED EFFECTIVE VISCOSITY FROM 
EQUAS IV-2, IV— 4 . 

VE(J) = TURB*VHP( J DIVE I J >-VH( J )/ROT )+VH{ JJ/RDT 

VEGI J ) = THE CORRECTED EFFECTIVE CONDUCTIVITY FROM 
EQUAS IV-2.1V-4 AND IS GOTTEN FROM THE VISCOSITY 
RELATIONS BY REPLACING VE(J) WITH VEG(J) AND THEN 
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C DIVIDING BY ROT. 

VEGI J)*TURB*VHP I J »*(VEG( J )-VH< J ) /PR/RDT ) + VH ( J > /PR/RDT 
38 0 CONTINUE 
I VEL= 2 
GO TO 421 

C BOTH THE EFFECTIVE VISCOSITY AND CONDUCTIVITY BECOME 

C LAMINAR IF TURBUJ HAS BECOME .LT.O.O. 

400 CONTINUE 

00 420 J*l, JY 
VE< J)=VHt JI/RDT 
VEGI J)*VE< J)/PR 


420 

CONTINUE 



I VEL= 3 


421 

IF IISTOI5I.EQ.O ) 

RETURN 

C 

EFFECTIVE 

VISCOSITY AT THE WALL. 


IF I VEIII.EQ.0.0 ) 

GO TO 423 

C 

EFFECTIVE 

CONDUCTIVITY AT THE WALL 


IF I VEGI 1 ) . EQ.O .0 » GO TO 423 

EFFECTIVE VISCOSITY CORRECTION AT THE WALL FROM THE 
RECOMPUTATION OF VHPIJ). ABS < FP*>V) .LT. 1.0E-10. 

IF (VHPIl).EQ.O.O ) GO TO 423 

C LAMINAR VISCOSITY AT THE WALL. 

IF I VHIU.EQ.O.O ) GO TO 423 

RETURN 

423 WRITE (6,1) IVEL, VEI 1) ,VEGl 1 ) , VHP (1) , VH< 1 ) 

RETURN 

1 FORMAT ( 1H0 » 5H I VEL = 13, 3X, 7HVEI 1 1PE9.2. 3X, 8HVEGU> = E9.2, 

2 3X, 0HVHPI 1 )= £9.2, 3X, 7HVHIl>= E9.2 > 


END 
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Subroutine INTEG 


$1 BFTC SUND 


SUBROUTINE INTEG IJE, JD, Y, SO, FIRST, S) 


SUBROUTINE INTEG COMPUTES AND LOADS THE SUM OF SD(J> INTO &(J) BY 

THE TRAPEZOIDAL RULE. _ 

SD( J ) AND SI J) HERE ARE DUMMY VARIABLES FOR THE FP,GP, VH»VHPP 
AND OTHER PROFILE VARIABLES IN THE CALLING SUBROUTINES. 


C SUBROUTINE INTEG IS CALLED BY SUBROUTINES IN IR, ITFR , ITSR, VI S. 


DIMENSION YIJD), SDIJD), S(JD) 


JEM® JE-X 
SD2® SDI1) 

SI= FIRST 
SID* SI 

DO 110 J*l» JEM 
SD1 = SD2 
SD2® SDIJ+1) 

Sl= SI + IYIJ+X) - YIJJ) * ( SD2 + SOU / 2. 
St J+l >= si 
no continue 

IF (JE.GE.JD) RETURN 

DO 120 J= JE , JD 
S(J>* SIJE) 

120 CONTINUE 


RETURN 

END 
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Subroutine FILE 


SIBFTC OFILE 


SUBROUTINE FILE (LABEL, I, YY, F, FP, FPP, GP, GPP, 0, OP, 

1 VH» VHP, VHPP , TAU, VE, VEG, SHR, BH, PR, PRT , 

2 X, U, M, TURB, RW, VW, $W, CH, 

3 ROT, OT, MT, HT, SF, CF, ST, STR, 10, JE, JY, JD, JOI V»I STO»WSTO) 


SUBR FILE LISTS THE MOMENTUM ANO ENERGY EQUATION PROFILES ON Y AND 
THE IIX) WALL STATION PARAMETERS AT EACH I(X) STATION ACCORDING 
TO THE ISTO(K) AND WSTO(l) LIST OPTIONS. 

SUBROUTINE FILE IS CALLED BY SUBROUTINES INIR, I TFR, I TSR, NDI R. 


REAL M, MT 


DIMENSION YY4JD) 
DIMENSION F 4 JD) , 
DIMENSION VH(JD) 
DIMENSION X( ID) , 
1 CWf ID) 
DIMENSION OT(IO) 
DIMENSION CF(ID) 


, BB( 13 ) , LABEL! 132 ) , I S TO 4 16 ) »WST0120) 

FP(JD), FPP(JD), GP(JD), GPP4JD), DUD), DP(JD) 
, VHP(JD), VHPP(JO), VE(JO), VEG(JD), TAUUOI 
U< ID > , MUD), TURBUD), RW(ID), VW4ID), SW4ID), 

♦ MT(ID), HT ( ID), SF( ID ) , ROT 410) 

, STUD), STR4ID) 


IST047) IS EITHER CARD READ IN BY SUBR COTR OR SET 
AND THEN RESET BY SUBRS ITFR, I TSR. 

IF 4 I.NE.IST047) ) GO TO 101 
GO TO 102 


IF 4 IST04 2 )«EQ.-1 ) RETURN 

IF IST04 4) .EQ.l THEN LIST THE SECONDARY PROFILES. 
IF { IST04 A ) .NE.O ) GO TO 111 

HEADING FOR EACH I4XI WALL STATION. 

WRITE 46,15) 4LABEUK), K=1,1B) 

WRITE 46,16) X4I), U4 I ) , M4I), RDT4I) 

WRITE 46,17) TJRB4I), RW(I), VW(I), SHU), CWUI 
WRITE (6,18) OTU), MTU), HT 4 I ) , SFU), CF4I), ST4I) 

WRITE (6,19) BH, PR, PRT, SHR 

XNOD* X4I) 

IF ( WST04 lOl.NE.O.O ) XNOD* X(I)/WST0(10) 

XNOD IS X4I) NON-DIMENSIONAL. 

WRITE (6,20) X4 I) ,XNOD, I, JE, IST0410) 


SET WORKING LIST SWITCH. 

IWSW* IST042) 

THE STANDARO LIST INTERVAL. 

JPTS= I ST01 3 ) *JDI V 

TO LIST AT THE JDIV INTERVAL A SELECTED PROFILE 
FROM EITHER SUBR, ITFR, ITSR. 

IF ( I.EQ.IST047) ) IWSW= 3 
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TO LIST THE FINAL PROFILE OF THE CASE* AFTER THE CASE 
BECOMES TURBULENT 5 THE PROFILES GO OUT OF BOUNDS!. 

IF < ISTOUO IoEQo5o0R o ISTO< 10>oEQ»6 > IWSW* 3 

IMSE 1$ FOR THE LISTING OF THE END POINT OF THE 
SECONDARY PROFILES* 

i 13 IWSE= JE 

INITIALIZE THE LIST COUNTER FOR EITHER INTERVAL OR 
POINT, HERE FOR POINT. 

LSPT = 1 

INITIALIZE THE COUNTER FOR THE STATIONS BEYOND 
THE IWST0(1> PROFILE AMPLITUDE LIMIT. 

ILL- 0 


LIST THE PRIMARY PROFILES. 

DO 119 J=l, JE, JDI V 

SEE EQUA. II-7B, THE NORMAL COORDINATE. 

BB(l)=YY<J> 

X VELOCITY RATIO UIYI/UIBLEJ. 

BB(2>*Dl J>*( l.-FPCJ)) 

TO LIST THE PROFILES DURING THE VELOCITY OVERSHOOT. 
IF < ISTO(4).EQ.O.ANO.BB( 2I.GT.1. I IWSW- 3 

TO LIST AT ALL LSPT STATIONS TO JE»ENO OF PROFILE. 
1* IF ( IWSW.EQ.O ) GO TO 116 ' 

TO LIST AT ALL JDIV STATIONS TO JE. 

IF ( IWSW.EQ. 3 ) GO TO 116 

TO LIST THE PROFILE INITIAL STATION. 

IF I J.EQ.l ) GO TO 116 

IWSW HERE IS FROM ISTOI2) ONLY. TEST FOR LIST 
CUT-OFF ON REACHING THE AMPLITUDE LIMIT. 

IF ( BB12) .LT.WSTOI1 > „ AND. I WSW .EQ . 1 ) GO TO 119 

IWSW.EQ.2 IS FROM ISTOI2) ONLY. TEST FOR LIST 
CUT-OFF ON REACHING THE AMPLITUDE LIMIT. 

IF I BB(2).LT.WSTO(l ) . AND. IWSW.EQ. 2 ! GO TO 116 


TO BYPASS THE PROFILE AMPLITUDE LIMIT COUNTER 
EXCEPT ON IST0I2J.EQ.2. 

IF I I WSH.NE . 2 ) GO TO 115 

PROFILE LIST POINTS COUNTER FOR LISTING AFTER THE 
PROFILE AMPLITUDE LIMIT HAS BEEN EXCEEOEO. 

ILL 1 

I S TO( 4 ) IS THE SWITCH SET IN SUBR COTR TO LIMIT THE 
ILL.GT o l o ANDoIST0(4) o NE,0 ) GO TO 119 

GO TO 116 


ILL* 
IF I 
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c INITIAL IWSE 3 JE. TO HERE ON 1ST0( 2).NE.2. 

115 IF ( IWSE.NE.JE ) GO TO 119 

RESET IWSE FOR THE LISTING OF THE SECONDARY PROFILE 
ON IST0(4).NE.l TO THE END POINT OF THE MAIN PROFILE, 

I W$E = J 

BB ( K ) # 5® 3,4,5 FOR THE MOMENTUM PROFILES. 

116 B8< 3)=F( J) 

BB < 4 ) =FP( J ) 

8B ( 5 ) =FPP( J ) 

THE DENSITY PROFILE. 

88(6)=*D( J) 

BB(K), K = 7,8 FOR THE ENERGY EQUATION PROFILES. 

BB(7 ) =GP( J ) 

BB(8I*GPP(JJ 

LIST THE INITIAL POINT EXCEPT ON I STO( 2 J . EQ. -I . 

IF ( J. EQ. 1 ) GO TO lit 

TO LIST ON EACH Y DATA INPUT POINT (AT JDIV> INTERVAL 
SEE Y ARRAY IN SUBR COTR LISTING OF INPUT DATA. 

IF ( IWSW.EO.3 > GO TO 118 

TO LIST AT LEAST l PROFILE POINT BEYOND THE POINT 
OF PROFILE AMPLITUDE .GT.WSTO(l). 

IF ( ILL.EQ.I I GO TO 118 

LIST ONLY AT JPTS INTERVAL 3 IST013I+JDIV. 

IF ( J.NE.LSPT ) GO TO 119 

THE LIST Y STATION COUNTER. 

117 LSPT = LSPT + JPTS 

ONE LINE OF DATA 

118 WRITE (6,21) J, ( BB ( K ) » K* 1,8 ) 

RETURN TO THE LOOP HEAD TO LIST ANOTHER LINE OF 
THE PR INARY PROFILES. ------ 

119 CONTINUE 

RETURN IF LIST OF SECONDARY PROFILES IN NOT WANTED. 
121 IF < IST0(4).EQ.l ) RETURN 


FDR THE LISTING OF THE SECONDARY PROFILES. 

WRITE (6,22) 

J2= 1 

IF ( I WSW.EQ.+l ) GO TO 131 

GO TO 132 

LIST ONLY THE ENO VALUES OF THE PROFILES WHEN 1WSW 3 1. 

131 J2 3 IWSE 

FOR THE 1ST POINT OF THE PROFILE TO 8E LISTED. 

TO CONTINUE THE LIST ON POINT INTERVALS FROM THE 
1ST POINT LISTED. 

132 IWSW= I STO( 2 ) 
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c 


LSPT = I 


INITIALIZE THE LIST COUNTER 


C 

C 


C 


LIST SECONDARY PROFILES WITH THE INITIAL POINT AT 
EITHER 1 OR PROFILE LIST END POINT. 

DO 136 J= J2» IWSE, JDIV 

IF TRUE, LIST ON EACH JPTS ETA STATION TO JE = PROFILE 
END STATION. 

IF I IWSW.EO.O ) GO TO 133 

LIST THE INITIAL PROFILE STATION 
IF I J.EQ.l ) GO TO 133 

IF TRUE, CONTINUE LISTING ON EACH JPTS ETA STATION. • 
IF ( IWSE.GE.J J GO TO 133 

TO END THE PROFILE LIST AT CURRENT 1(X) WALL STATION. 
IF I IWSW. EQ.-l ) RETURN 

TO END PROFILE LIST ON THE NEXT ETA LIST ITERATE. 

IWSW= -1 

NON-DIMENSIONAL SHEAR STRESS, 

BB( 1 ) = TAUIJ) 

EFFECTIVE VISCOSITY. 

BB(2)= VEIJ) ‘ 

X DERIVATIVE OF THE DENSITY. 

BBI 3 )= OPI J) 

BB ( 4 ) = (l.-FP(J)) * DP I J I /D{ J ) 

ON CALL FROM SUBR I TSR ANO IF TOP.EQ.l, THEN VH.VHP. 
VHPP ARE FROM SU8R TRANS. OTHERWISE VH,VHP,VHPP ARE 
FROM SUBR INTEG. . 

ON CALL FROM SUBR NDIR VH, VHP, VHPP ARE THE SAME AS 
FOR THE CALL OF FILE BY SUBR ITSR. 

ON CALL OF FILE BY SUBR I TFR VHP, VHPP ARE FROM 
SUBR INTEG AND VH IS FROM SUBR PROFYL. 

ON CALL OF FILE BY SUBR INIR VH.VHP ARE FROM SUBR VIS 
AND, VHPP IS FROM SUBR INIR. 

BB(5 )= VHPP ( J ) 

8B<6>= VHIJI 
BB ( 7 ) = VHP(J) 

CONDUCTIVITY. 

BB( 8 )= VEG(J) 

IF TRUE, LIST THE INITIAL PROFILE POINT AND ADD TO 
THE 1ST COUNTER. 

IF ( J.EQ. 1 I GO TO 134 

IF THIS INSTRUCTION TS REACHED LIST AT LEAST 1 ETA 
PROFILE STATION. 

IF ( IWSW. EQ.-l > GO TO 135 

LIST ON THE LSPT ETA STATION AT JPTS INTERVAL. 

IF ( J.NE.LSPT ) GO TO 136 
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C ADO TO THE LIST COUNTER. 

134 LSPT = ' SPT + JPTS 

C LIST A LINE AT AN ETA STATION. 

135 WRITE 16,21) J , ( BB( K ) , K=l,8) 

C RETURN TO THE LOOP HEAD TO LIST ANOTHER LINE. 

136 CONTINUE 


RETURN 


15 FORMAT { A4, 44X, 27HBOUNDARY LAYER PROFILES FOR /1X.17A4 ) 


16 

FORMAT (IX 

,3HX *, F9.4, 35X, 

3HU 

= , F9.3 

, 3X, 3HM * 


1 3X, 5HR0T IPE9.2) 




17 

FORMAT ( 

24X, 6HTURB 

=, F5.3, 

4X, 

4HRW =, 

1PE9.2, 4X, 


1 4HVW =, 

E9.2, 3X , 4HSW 

= » E9.2, 

3X, 

4HCW =, 

E9.2) 

18 

FORMAT ( 

20X, 4 HOT = , 

1PE9.2, 

IX, 




1 4HMT = , 

E9.2, IX, 4HHT 

■ , E 9. 2 , 

IX, 

4HSF =, 

E9* 2 » 1 X t 


2 4HCF =, 

E9.2, IX, 4HST 

=, E9.2) 




19 FORMAT ( 32 X , 4HHR = , 1PE9.2, 3X, 4HPR *, E9.2, 3X, 

1 5HPRT = , E9.2, 3X, 5HSHR =. OPF«i*?l 


20 FORMAT 
2 

4 

5 

21 FORMAT 

22 FORMAT 
2 

3 


END 








(1H0,3HX= F 10.4, 3X » 6HXN0D= F10. 4, 3X ,6HI( X ) - I3,3X,4HJE= 
14, 3X, lOHISTOt 10)= 13 / 

1X,3H J ,7X, 2HYY , 14X, 8HU/U( BLE ) , 8X , 1HF , 15X , 2HFP , J4X, 
3HFPP, I3X, IHD, 15X, 2HGP, 14X, 3HGPP ) 

< IX, 13, 8 ( 2X, 1PE14. 7 ) ) 

( IX, 3HJ , 7X, 3HTAU, 13X, 2HVE, 14X, 2HDP„ 10X, 
12HDP/D*( l.-FP), 7X, 4HVHP.P, 13X, 2HVH, 13X, 3HVHP, 

14X , 3HVEG ) 
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Subroutine PROFYL 


SIBFTC APROF 


SUBROUTINE PROFYL (JE, JY, JO, Y, B, ET, FPW, FPPW, FPE , IBC, 
I FP, VH, VHP, VHPP > 


SUBR PROFYL OBTAINS FMETA) FROM THE MOMENTUM EQUATION 
(8 * IF** + R ) ) ' = B + B * F»» ♦ 8 * F* 

4 5 13 2 III 

OR G' FROM THE SIMILAR ENERGY EQUATION BY SUBSTITUTING CORRESPOND 
ING VALUES OF THE G FUNCTIONS FOR THE F FUNCTIONS AND 
LIKEWISE FOR THE COEFFICIENTS 8(KI. 

SUBROUTINE PROFYL IS CALLED BY THE SUBROUTINES I TFR , I TSR. 


DIMENSION YUD), BIJD, 5) 

DIMENSION FP(JD), VH(JD), VHPIJD), VHPPUD) 


JE=J Y 

VHPP I 1 ) = 0.0 
VHIl)=0.fl 
VHP( 1 ) =FPW 

IF ( I8C.NE.3) GO TO 100 
VHU) = i.O 

VHPIl)--( FPPW+B (1»5))*CYI2 )— Y ( 1 ) ) 

100 CONTINUE 

JYM= JY-1 
DO 200 J=2» JYM 

VHPP ( J ) *VHPP( J-l MIBI J,5)+8(J-l,5l)/2.+IV(J ) - Y U-l I ) 

ovsyu+i)-Y(j-i) 

ATP=-(B(J+1,4) + BU,4) )/(Y<J + l)-YI JH/DY 
ATM=-(B(J»4)+BI J-1,4) I / ( Y ( J >-Y ( J-l ) ) /DY 
A1=ATM-B<J,2)/0Y 
A2=ATP+ATM-B(J, 1 ) 

A3=ATP+B< J,2)/DY 

A4=B< J,3)-B( J,2 )*BU»5)-BU, 1 )*VHPPU ) 

VH(J) = A3/(A2-A1*VHU-I I J 

VHP! J)={ A4+A1*VHP( J-l > ) /I A2-A1*VH(J-1 ) ) 

200 CONTINUE 

VHPP<JY)=VHPP( JY-l)+<8( JY,5)+BC JY-1, 5) ) /2.* ( Y (JY )- Y ( JY-1 I ) 
FP(JY) =FPE 
DO 250 JJ=l, JYM 
J= JY— J J 

FPU) BECOMES GPU) DURING THE COMPUTATION OF THE 
ENERGY PROFILE. 

FP< J>*VH(J)*|FPU+1)+VHPP< J+l) )-VHPP( J)+VHPIJ) 

250 CONTINUE 



00 300 JJ=1, JVM 
J=JY-J J 

IF ( ABS(FP( JIKGT.l.E-8) GO TO 301 
JE= J 

300 CONTINUE 


301 CONTINUE 
RETURN 
END 
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Subroutine INIR 


$1 BFTC INI D 


SUBROUTINE INIR( KSTQP, XMAS) 


C SUBROUTINE INIR INITIALIZES THE COMMON STORES. SETS UP THE 

C INITIAL BOUNDARY CONDITIONS, MODIFIES THE NORMAL COORDINATE 

C PROFILE Y(ETA), THE INPUT FIRST MOMENTUM EQUATION DERIVATIVE ON 

C ETA F* (ETA) * THE INPUT FIRST ENERGY EQUATION DERIVATIVE ON ETA 

C GMETA), AND COMPUTES THE INITIAL F*META), G ' * ( ETA ) PROFILES. 

C THEN SUBR INIR COMPUTES THE INITIAL PROFILES ON ETA OF THE 

C DENSITY D(ETA), THE DENSITY X-DERIVATIVE DP (ETA) t THE LOCAL 

C SHEAR STRESS TAU(ETA). THE INITIAL VISCOSITY PROFILE VE(ETA) AND 

C CONDUCTIVITY PROFILE VEG(ETA) ARE GOTTEN FROM SUBR VIS. 

C THE INPUT DATA FOR SUBR INIR IS GOTTEN FROM SUBR COTR. 

C BEFORE THE EXIT TO THE MAIN ROUTINE TUF ALL IMPORTANT QUANTITIES 

C ARE LISTED EITHER BY SUBR INIR OR SUBR FILE* 

C SUBROUTINE INIR IS CALLED BY THE MAIN ROUTINE TUF. 

C SUBROUTINE INIR CALLS SUBROUT INES. . .COTR, INTEG, VI S , FI LE »A6I R. 


C ********* MAIN COMMON V-3 TUF *************** 


COMMON 

1 

2 
3 
A 

5 

6 

7 

8 
9 
A 

1 

2 
3 
A 

5 

6 
7 

COMMON 

1 

2 

3 

A 

5 

6 

7 

8 
9 
A 
1 
2 
3 


/TUFA/ATUF, 

B(300,5), 

BI » BH, BS, BK, 

CW(IOO) ,CF( 100) ,CLIS( AOO),CAY( 300) , 
CA,CA1,C0,C0B,CMTF,CMTG,C,C0AL,CMU, 

08(300) ,DBB( 300), 0(300), DP (300) »DPB ( 300) , 
0T(I00),0TK(100), 

DX.DTXM, DOP,DI , DJ, DXB,DTM, DTS, 

ET, 

FB ( 300 ) , FBB ( 300 ) ,FPBB( 300 ) , FPB( 300 ) , FP ( 300) ,F ( 300) 
FPP ( 300 ) ,FPPB< 300) , 

FPE,FPPH,FT,FV,FTU2, 

GPB( 300 ) , GP88 ( 300 > ,GP( 300) , GPP ( 300) , CPP8 ( 300) , 

GBC( 100 ) »GPW( 100 ) » 

GPPHtGPE, G AM, GAMX, 

HT ( lOO ) , 

IST0U6), 

I, 1C, ID, I BC ,IOP, I X, IXE , IT, IXA, ID,IXF 
/TUF J/ JTUF, 

JTR(IOO), 

JE,JK, JM, JY,JEF,JEG, JDIV.JEB, JO, 

KB.KMI, 

LABEL ( 132 ) , 

LOOP.LOGPF, 

M( 100) , MT ( 100 ) , 

MOP, MR, ML, 

NU, 

01, 

P,PB,PM,POP,PR,PRT, 

QB,QM,QRB,QRM,Q, 

RW ( LOO ) , ROT ( 100 ) , 

RB»RM»RC»RMS» RMT,R, RDTK, RXRDF,RL,RMTW,RDF ,RX 



ro 


/TUFS/STUF, 

STRUOO J,$waOOKSFtlOOJ,$T<100>, 

SHR,STC,$K,STRX, 

T AU ( 300 ) » 

TURBdOO )»TF(100), 

T0« TOP, TFR, 

U(IOO), 

UX, 

VE(300> ,VEG<300) , VH< 300 I , VHP< 300) ,VHPP(300>, 

VWUOO) , 

VP B,VPM, 

WSTOt 20 ) f 
XdOO), 

XT, XK, 

Y ( 300) , YY ( 300 ) , 

ZERO 

REAL KB, M, ML ,MR ,MT « NO 
INTEGER OOP, POP, TOP 

C ******** *END OF MAIN COMMON TUF-V3* ************* 


DIMENSION KSTOPt 5) ,XMAS ( 10) 


RB= 0.0 
RM= 0.0 
RC= 0.0 
RMS= 0.0 
RMT= 0.0 
R = 0.0 

RDTK* 0.0 
RXRDF= 0.0 
RL= 0.0 
RMTW= 0.0 
ROF= 0.0 
RX= 0.0 
ROT ( 2 J = 0.0 

DO 1 K= 1,16 

1 I STQ( K ) = 0 

DO 2 K- 1,20 

2 WSTQ C K ) — 0.0 


C TAPE 1 SUPPLIES X STATION DATA ON USING THE TAPE OPTION. 

REWIND 1 

C IN SUBR COTR WE HAVE { TO NONO IMENSIONALI ZE XdJ.I 

C IF < WSTOdOI.EQ.O.O.AND. IST0( 12) *EQ« 1. AND. WSTO(5)«NE.O.Q I 

C 2 WSTOdO)* XMASd)*WST0(5) 

XMAS (II* ABSIXMASII) > 

C THE 01 MENS ION OF THE I(X) WALL STATION ARRAYS. 

I D= 100 

C THE DIMENSION OF THE J{Y) ARRAYS. 


COMMON 

1 

2 

3 

A 

5 

6 

7 

8 
9 
A 
1 
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no non 



GPW(K)= 

0.0 



G8C(K)* 

0.0 



HT ( K ) = 

0.9 



JTR(K)- 

0.0 



M ( K ) = 

0.0 


• 

MT(K)= 

0.0 



RDT ( K ) = 

0.0 



RW ( K ) = 

0.0 



STR ( K ) = 

0.0 



ST ( K ) * 

0.0 



SF ( K ) = 

0.9 



SW(K)= 

0.0 



TF(K)s 

0.0 



TURB ( K ) = 

0.0 



U(K) = 

0.0 



VW ( K ) = 

0.0 



X(K> = 

o.o 


8 

CONTINUE 



C 


VON KARMAN CONSTANT IN EMPIRICAL EFFECTIVE VISCOSITY 

c 


IN SUBR 

VIS. 


ft 

It 

* 



c 


CLAUSER 

CONSTANT FOR THE OUTER VISCOSITY LAW. 


8K= .016 



c 


A POSSIBLE TOLERANCE. 


ET= 1.0E-08 

CONSECUTIVE ITERATE CONVERGENCE ALLOWANCE IN I TFR, I TSR, 
XT= .005 


C 

c 


6 

7 


COEFFICIENT PROFILES FOR BOTH MOMENT AND ENERGY 
EQUATIONS IN SUBR PROFYL. 

DO 7 J= 1,5 
DO 6 1= 1,300 

8U,J)= 0.0 

CONTINUE 


CALL 


COTR READS IN DATA CARDS OR TAPE, CALLS A6IR. 
COTRIKSTOP.XMASI 


IF < JY.LE. 3Q0.GR. JEF.LE.3Q0.0R. JEG.LE. 300 ) GO TO 10 
ISTO(IQ)* 9 

WRITE (6,63) ISTO(IO) 

CALL A6IR 


C GO TO THE NEXT CASE 

RETURN 

TO PREVENT JE FROM BECOMING .GT.JY. 

JY* ( JY{ READ-IN) - 1 ) * JDIV ♦ l 
JE F- ( JEF( READ-IN) - 1 ) * JDIV + 1 
10 IF { JEF. GT.JY ) JEF= JY 

IF ( JEG. GT.JY ) JEF= JY 

SONIC VELOCITY CONSTANT. 

THE SONIC VELOC I TY= SQRT ( SHR*GR*T ( DEG K) ) 


54 



o r> n 


JD= 300 

C INITIALIZE THE PROFILE END POINTS. 

JY= 300 
JEF= 300 
J EG= 300 
JE= 300 

THE MAXIMUM NUMBER OF ITERATES FOR THE CONVERGENCE 
OF THE MOMENTUM EQUATION PROFILES. ALSO THE MAXIMUM 
NUMBER OF ITERATES OF THE OUTER MOMENTUM-ENERGY LOOP. 

KM 1= 15 

DO 90 K= 1 » 400 
CLIS(K»= 0.0 
90 CONTINUE 

DO 9 K = 1,300 

CAY C K > — 0.0 

0IK1= 1.0 

OP ( K ) = 0.0 

OB ( K J = 0.0 

08 B ( K I - 0.0 

FBIK)®0.0 

F ( K ) = 0.0 

FP(K)® 0.0 
FPPIKI® 0.0 
GPI K)= 0.0 


FBB(K>= 0.0 


FPBBItU* 

0.0 

FB (K )= 

0.0 

FPBIK)- 

0.0 

F PPB ( K. > = 

0.0 

GPB{ K > = 

0.0 

GPBBUO® 

0.0 

GPP { K ) ® 

0.0 

GPPB ( K ) = 

0.0 

TAUIK}® 

.001 

VH oo = 

0.0 

VHP f K ) = 

0.0 

VHPP ( K ) - 

0.0 

VEIIO® 

0.0 


VEGIK ) ® 0.0 

Y ( K ) * 0.0 

YYIKI® 0.0 


9 

CONTINUE 


C 


THE SPECIFIC HEAT RATIO. 



S HR = 

1.4 


C 


SUTHERLAND CONSTANT. 



STC* 

110.0 


C 


PRANDTL NUMBER. 



PR® 

.78 


C 


TURBULENT PRANDTL NUMBER, U5E0 

PY SUBR VIS. 


PRT = 

1.0 


c 


TOLERANCE, ESPECIALLY IN SUBRS 

ITFR, ITSR. 


ZERO® 

1.06-10 



00 8 K= 1,100 

CF I K I = 0.0 

CW ( K ) = 0.0 

DT(K)= 0.0 
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c 


FOR AN INPUT VELOCITY IN FT/SEC AND TEMPERATURE DEG K 
GR= 1116. 45*1116. 45/SHR/288. 15 

INITIALIZE THE VELOCITY OF SOUND AT MR. 

COMPUTE THE G*R FACTOR FOR THE SONIC VELOCITY. 

IF ( WSTOI 18). NE.0.0. AND. WSTOI 19). NE.0.0 > 

2 GR= WSTOI 18)*W$TO( 18 ) /SHR/WSTO I 19) 

RL=ROT < I ) 

ML=MR 

TFR*1. ♦ISHR-l. ) /2.*MR*MR 

IF ( WSTOU4). NE.O.O) PRT * WST0U4) 

IF ( WST0I15). NE.O.O > PR* WSTO( 1 5 ) 

IS=l 

IF U0P.EQ.4) I S = 2 

EITHER UU) OR MU) IS READ-IN AT THE SAME LOCATION 
ON THE X-STATION DATA CARDS. IF U(X) IS READ IN 
COMPUTE MIX). IF MIX) IS READ IN COMPUTE U(X). 

IF (MR.LT.ZERO.OR.DOP.GT.O) GO TO 105 
COMPUTE UIX) FROM MIX). 

DO 104 1*1* IX 

MACH NUMBER FROM EITHER CARDS OR TAPE. 

M 1 1 1 =U ( I ) 

IN COTR IF WSTOI 8 ) .NE.0.0 THEN UI I ) =WSTOI 8 ) *U(I ) . 

IF I WST0I8). NE.0.0 ) MU)* MU)/WST0(8) 

A TEMPERATURE FUNCTION. T I TOTA L )/T ISTATIC). 

TFI I )*!.♦( SHR-1 • ) /2.*M( I)*MU) 

COMPUTE THE X VELOCITY FROM THE INPUT MACH NUMBER. 
UII)=M(I ) /MR*SQRT ( TFR/TFI I ) ) 

WST0I8) IS A MODEL SCALING FACTOR 
IF I WSTOI 8 ) .NE.0.0 ) U( I) = WSTO I 8 )*UU) 

104 CONTINUE 

WRITE 16,58) WSTO 1 8 ) 

GO TO 107 

COMPUTE MIX) FROM UIX). 

105 CONTINUE 

INITIALIZE Mil). 

J ) - MR 

IX IS FROM SUBR COTR ANO IX.LE.99. 

ALTERNATE MACH NUMBER COMPUTATION AT THE X STATION. 

DO 106 1*1* IX 
UNS* UU) 

IF l WSTOI 16). NEoO.O > UNS= UNS / WSTO ( 16 ) 

IF ( WSTDI8). NE.0.0 ) UNS* UNS / WST0I8) 

IF I I.NE.l ) GO TO 1056 

DO 1055 K* 1,5 

TISTATIC) OF MR= TITOTAL )/(!.♦( (SHR-1. ) /2. ) *MR*MR ) . 
VELOCITY OF SOUND AT THE MR STATIC TEMPERATURE DEG K. 
GR IS HEREIN BASED ON AN INPUT OF FT/SEC UNLESS BOTH 
WSTOI 18) ANO WSTOI 19 > .NE.QoO. 

VSMR= SQRT(SHR*GR*TO/< lc+I (SHR-1. )/2. )*MI 1)*MI 1) ) ) 

1055 MI 1 ) = UNS / VSMR 

C MACH NUMBER BASED ON THE VELOCITY OF SOUND AT XU). 

1056 M 1 1 ) = UNS / VSMR 

C A TEMPERATURE FUNCTION. 

TF ( I ) =1«+ I SHR-1 . )/2.*M< l ) *M( I ) 

106 CONTINUE 



no oo o o o no o o o r> o o non 


c 


RESET MR,ML»TFR 


MR= MU) 

ML= MR 

TFR= 1. ♦ ( CSHR-l.)/2. )*MR*MR 
WRITE ( 6,67 ) MR, TFR , WST0(8> 

C SKIP EFN 105 WHEN U(X> IS COMPUTED FROM MIX). 

107 CONTINUE 

FILL IN THE VACANCIES ON THE YY< J ) ,F • ( ETA ) , 

G* < ETA ) PROFILES AND COMPUTE THE F(ETA) ,F • • (ETA) , 
G'METAI, O(ETA), AND OP(ETA) PROFILES. 

DIVJ=JDIV 

JY IS THE EXPANDED JY FROM SUBR COTR. 

DO 108 J=2, JY 

JF ( MAX ) « JY 

JF=M ( J-l )/JDIV)*JDIV+l 

JL ( MAX ) = JY 

JL= ( ( J+JDIV-2)ZJDIV)*JDIV+1 

NORMAL COORDINATE. 

YY( J)=YYI JF )+(YY( JL)-YY( JF) >/DlVJ*FLOAT( J-JF) 

F» (ETA). 

FP( J) = FP( JF) + (FP( JL >-FP( JF) )/DIVJ*FLOAT( J-JF) 

G* (ETA). 

GP( J)=GP( JF)+(GP( JL )-GP( JF) )/OIVJ*FLOAT( J-JF) 

108 CONTINUE 


JEF AND JEG HAVE BEEN EXPANOEO IN SUBR COTR. 

JEF ( MAX )= JY, JEG( MAX ) = JY. 

JE=MAXQ( JEF, JEG) 

CMTF=1 . 0 
CMTG 3 ! .0 
P = BS 
01*10 
RT=0.0 
RC=0.0 

REAL. 

KB=0.0 

XK=0.0 

THE CRITICAL I(X) STATION FOR TURBULENT FLOW IS 
INITIALIZED - 1 MORE THAN THE LAST STATION. 

IC=IX+1 

CA=0.0 

SC=1.0 

THE FIRST I(X) STATION IS INITIALIZED TO 1. 

I IS RESET* 2 ON I0P.EQ.4 FOLLOWING EFN 112. 

1=1 


IF I0.NE.0 WE HAVE AXISYMMETRIC FLOW. 
OR/DX AT THE ORIGIN 
IF ( IO.NE.O ) SC=0. 5 


C 


SLOPE OF THE TANGENT TO THE AXISYMMETRIC BODY. 
RWSL= ( RW ( 2 I -RW ( 1 ) ) / ( X(2)-XU) I 

HSTQ ( 19 ) « RWSL*RWSL 


IF 
IF 
IF 
I F 


( WSTO( 19 ) .GT.1.0.AND,RW( 1 ).LT.RW(2) > 
(WST0U9) .GT.l.0.AN0.RW(l).LT.RW(2> ) 
( WSTO ( 19 ) .GT.1.0. AND.RWJ 1).GT.RW{2 ) ) 
(WST0I19 )«GT .l.O.AND.RWI 1).GT.RW( 2 ) ) 


RW( 1 ) = RW ( 2 ) -X ( 2 ) 
RW$L= 1. 

RWI 1 ) = RW( 2 ) +X( 2) 
RWSL * -1. 
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W$T0U9> = RW$L*RWSL 
COAL= SORT ( 1 WSTO( 19 ) > 

111 GOTO (113*114. 114.112.H3.114.114I. I OP 


C 

C 

C 


112 CONTINUE 


THE STARTING FLOW IS SIMILAR LAMINAR. HERE THE 
STARTING PROFILE IS ONE STATION DOWN FROM THE ORIGIN. 

RESET I FOR THE STARTING PROFILES IN SUBR ITFR. 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


I =2 

DISPLACEMENT THICKNESS. 

DTI 1 5=0.0 „ 

REYNOLDS NUMBER BASED ON DISPLACEMENT THICKNESS. 


KUMIJsy.U 

A CONSTANT IN EQUA II-28B FOR THE DISPLACEMENT 
DERIVED FROM THE WEDGE POWER LAW OF BOUNDARY LAYER 
WEDGE VELOCITY. 

C=SQRT ( 2. / I BS+1 . )/RL) 

PARAMETER OF EQUA 11-14. 

HERE RL= RDT(l) FROM A RESET IN SUBR COTR. 


P=C*C*RL*BS 

RDF-C+RL 
RDT 1 2 ) =RDF 


RDF-0 FOR LAMINAR STARTING FLOW AND - 1 FOR TURBULENT 
STARTING FLOW. 

COMPUTED REYNOLDS NUMBER AT STATION 1(50= 2. 


IF (ABS(RWSL).LT.loOE-85 GO TO 115 

C PARAMETER IN EQUA 11-14. 

R=RL$C*C*(RW(35-RW( 1) I / < X ( 3 )-X( 1 ))* ( X < 2 )-X( 1) ) / ( RW ( 3) ?RW< 1 H 
C COSINE OF ANGLE OF NOSE OF THE AXl SYMMETRICAL BODY. 

CA=2o*0I*C0AL*C<MX( 2)-X( 1 » I/RW12) 

GO TO 115 


C TO HERE FROM EFN 111 ON IOP.EQ.1.5 LAMINAR FLOW. 

113 CONTINUE 
RDF*ROT(I 5 

IF (ABS(RW(1»/DI(1) 5.LT.0.1) GO TO 115 
C SEE EQUA I 1-14. THE R PARAMETER. 

R* RWSL*DT( U/RW( i )*RDT( l ) 

CA= 2 .* 0 I#DT(n/RW<n*C 0 AL 
GO TO 115 


C TO HERE FOR TURBULENT FLOW FROM EFN 111. 

114 CONTINUE 
RDF=lo 0 

IF (ABS<RW(1)/0T(1I I oLT.Oo 1 D GO TO U5 
R= RWSL*DT( 1 )/RW< 15 
CORW= R/DT { 1 1 $RW( 1 5 
CORS= CORWPCORW 

IF ( CORSoGT o 1 o 0 5 CORS= 1. 

CORT = SQRT ( 1 o-CORS ) 

C THE SCALED NOSE ANGLE OF THE AXISYMMETRIC BODY* 

C TO HERE ALSO FOR LAMINAR FLOW. 

CA= 2«*0I« I DTll)/RW( 1)*C0RT 


C TO HERE ON A SKIP. 

115 CONTINUE 

C TO BE USED IN SUBR ITSR FOR SUBR TRANS . FOR A 

C SCALING OF FT DOWNSTREAM FROM THE ORIGIN. 
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FTU2-FT*U( I »*U( i > 

MOOIFY YIJ) TO ACCOUNT FOR THE NOSE ANGLE OF °AN 
AXISYMMETRIC BODY. 

DO 120 J=l, JD 

Y( J)=YY( J)*<1. + YYIJ>*CAM. ) 

120 CONTINUE 

IF I IABS(D0P).NE.1. 0R.M0P.LT. CM GO TO 123 

RECOMPUTE THE F'(ETA) PROFILE ON OOP.EQ. l.OR.MOP. GE.O 
FOR BOTH LAMINAR ANO TURBULENT FLOW. 

00 122 J=l, JE 
FV=1.-FP( J> 

FP(JI=1.—FV/(TF( I)*(1.-GP< TF( I J-l. }*FV*FV) 

122 CONTINUE 


COMPUTE FIETAP BY USING THE TRAPEZOIDAL RULE. 

TO HERE ON SKIPPING THE PRECEEOI NG FP(J) COMPUTATION. 
123 CALL INTEG (JE, JD, Y , FP, 0.0, Ft 

DO 125 J*l s JY 
DY=Y( Jfl)-Y(J» 

F® * ( ETA} PROFILE BY 1ST DIFFERENCES. 

FPP( JPMFPI J+ll-FPI JP P/DY 

G'META PROFILE BY 1ST DIFFERENCES. 

GPPI (GP( J+l )-*GPl JP 5/OY 

THE DENSITY IS A CONSTANT FOR THIS PROFILE. 

D( J)=1«0 

THE R( DELTA P $DELTA( * I X-DER I VATI VE OF THE LOCAL 
OENSITYP PARAMETER. 

DP( J 5=0.0 

C THE DElTA(*)*U(-OER!VATIVe OF THE LOCAL DENSETVP 

C PARAMETER. 

DBUB=0o0 

C THE PROFILE OF THE LOCAL SHEAR STRESS IS A CONSTANT. 

TAUf J 5 *0.001 

C THE DENSITY , DENSITY X-OERIVATIVE LOOP END. 

125 CONTINUE 

C RESET THE END VALUES TO THE BOUNDARY CONDITIONS. 

FPPI JYP=0„O 
GPPC JY 5=0.0 

C TEST TO RECOMPUTE THE DENSITY AND X-DER I VATI VB 

C OF DENSITY PARAMETER PROFILES. 

IF (MOP.LT.OP GO TO 127 
B1=TFCI|-1. 

DO 126 J=l, JY 
FV=1.-FPC J) 

C LOCAL DENSITY PROFILE 

0( JJ - 2 . *TF (IP*( l.-BHPGPI J ) )/( l.oSQR7(l.o+4.*81*FV*FV*TF( I ) 

1 *(1.-BH*GP(J ) > n 

C LOCAL X- DERIVATIVE OF DENSITY PARAMETER. 

DPIJ P = (2.*Bl*0( J P*D( J5*FV*FPP( J»-TF( n*BH*GPP( J) ) 

1 7(1.+2.*B1#0( JP*FV*FV) 

126 CONTINUE 

C SET X DERIVATIVE OF DENSITY TO THE BOUNDARY VALUE. 

DP ( JY i =0.0 
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c 


SKIP TO HERE IF MOP.LE.O (FOR CONSTANT DENSITY FLOW) 


127 CONTINUE 

QUANTITIES FOR THE SUBR VIS COMPUTATION OF THE 
EFFECTIVE VISCOSITY * VEIETA) AND EFFECTIVE 
CONDUCTIVITY = VEG(ETA) PROFILES. 

00 128 J*l, JE 
FV=1,-FP( J) 

VH( J)=FV*( l.-O! J)*FV) 

129 CONTINUE 

SEE EQUA 11-22. 

INTEGRAL MOMENTUM THICKNESS BASED ON DELT (*) • 

CALL INTEG (JE, JD, Y, VH, 0.0, VH) 

DELTA! *>/THETA. 

SF( 1 )-l. /VH! JE ) 

MOMENTUM THICKNESS. 

MT( 1 )=*DT( 1 )/SF( 1 ) 

Q=0.0 

SKIN FRICTION COEFFICIENT. 

CFI1 1-0.0 
CF! 2 )=0.0 

STANTON NUMBER BASEO ON FREESTREAM TO REFERENCE 
ENTHALPY DIFFERENCE. 

STR! 1 ) *0.0 
STR! 2 ) =0.0 

SHEAR PARAMETER CIMU). SEE 1I-3A. 

CMU«=( 1.5— l./!l.+STC/TO*TFR) )*( SHR-1. )*MR*MR 
GAM=0.0 
GAMX=0.0 
STRX=0.0 

COMPUTE VE ! ETA) * VEG! ETA ) IN VIS AND FOLLOW WITH 
THE T AU< ETA ) PROFILE, ALL PROFILES TO BE ITERATED 
WHEN TURB! D.EQ.l. 

KC=5 

TURB! I ).GE.O.O.AND..LE.l. 

IF (TURBII). LT. 1.0) KC~1 

DO 132 K*l, KC 

COMPUTE 1 EACH VE! ETA ) =EFFECTI VE VISCOSITY AND 
VEG ( ET A) = EFFECTIVE CONDUCTIVITY PROFILES. 

THE VISCOSITY AND CONDUCTIVITY PROFILES ARE 
COMPUTED FOR BOTH COMPRESSIBLE AND CONSTANT DENSITY 
FLOWS. ’ • 

CALL VIS (JE, JY, JD, YY, FP, FPP, GP, GPP, D, OP, TAU, VH,. VHP, 

1 TURB ( I ) , SW!I), CW!I), SHR, 8H, STC, TO, TF ( ! ) , RDTII), DT(I), 

2 F ( JY ) , PR, PRT , JK, VE, VEG, ISTO ) 

C COMPUTE A PROFILE OF TAU! ETA ) . 

LCAY= 0 

00 131 J=l, JY 
CAY! J )= CA*Y ( J ) 

IF (CAY! JI.GE.-l. ) GO TO 129 

LCAY= LCAY + 1 

IF ( LCAY. EQ. I'D WRITE (6,62) CA,Y(J> 

T AU ( J ) = 0.0 

GO TO 131 


59 



o o o o o 


C THE LOCAL NON-DIMENSIONAL SHEAR STRESS,, 

129 TAUI J)=VE( J)*(0PU)/DI J )*( l.-FP ( J >) -FPP U )) *SQRT ( 1 „ <-CAY( J > ) 

131 CONTINUE 

C ENO SU8R VIS AND TAU(ETA) PROFILE LOOP. 

132 CONTINUE 


IF (TURB( I).GT. 0.999) CF(I) =2. *TAU( I ) 


**** PRINT OUT THE INPUT VARIABLES AND PARAMETERS **** 

WRITE (6*48) I 

LIST HEADING ANO INITIAL PROFILES. IF I0P.LE.3 THE 
INITIAL F* ( ETA) »G' ( ETA) PROFILES ARE THE STARTING 
PROFILES. 

CALL FILE (LABEL, 1, YY, F» FP, FPP, GP, GPP, 0, DP, 

1 VH, VHP, VHP P , TALI, VE, VEG, SHR, BH, PR, PRT , 

2 X » U, M» TURB, RW, VW, SW , CW, 

3 ROT, DT, HT» HT, SF, CF, ST, STR , I D, JE , JY , JD , JDl V , I STO , WSTO ) 

IF UST031&.EQ.2) GO TO 133 

IF 5P0P.EQ.I) RETURN 

133 WRITE (6,49) ISTOUO) 

WRITE (6,50) LABEL ( 1 > , (LABEL ( K ) , K= 2,18) 

WRITE 56,52) JDIV , JY, JEF, JEG, JE 
WRITE (6,53) SHR, PR, PRT, GR„ VSMR 
WRITE (6,54) EF, XT 

WRITE (6,55) IDP, MOP, OOP, 10, TOP, POP 

WRITE (6,56) MU), DT ( 1 ) , ROT 1 1L ) » BS, TO, BH, FT 

WRITE (6,60) XU), U(1 ) , Mil), TURBID, GBC ( 1 ) , RWU), VH(1), 

1 sw < D , CM ( 1 > 

IF ( IOPo EQ»4) 

1 WRITE (6,60) X ( 2 ) , U(2), m2), TURB(2), GBC(2), RW<2), VW<2), 

2 SW ( 2 > ® CW(2) 


WRITE 

16,59) 

3 

IL» 

miu, 

IL* 

1 9 

IX 

) 

WRITE 

16,64) 

5 

IL, 

TFI IL), 

IL® 

If 

IX 

I 

WRITE 

(6,65) 

( 

IL, 

U(IU, 

IL = 

1* 

IX 

) 

WRITE 

56,66) 

I. 

» CF( 

in, SF5I) 

, MT 

(I) 

» 

STR{ I ), TF ( I ) ,, VHCU , 


2 TAU(l), TAU5 2 J , VE( 1 ) , P , R , CMU, RDT( 2 ) 

RETURN 


48 FORMAT 
2 


UHW5X, 5HK X) - 13, 

54HTHE INITIAL PROFILES FOR BOTH MOMENTUM ANO ENERGY ARE-) 


49 FORMAT ( IHl, IOHISTO( 10 )= 13 6 

50 FORMAT ( A4 , 9X, 20H INPUT VARIABLES FOR , 17A4 ) 


52 FORMAT 
2 


(10X, 6HJDIV 
3HJE=I4 ) 


12, 5X,3HJY=I4,5X,4HJEF*I4,5X,4HJEG=.I4,5X, 
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53 FORMAT UOX, 5HSHR =» F6.3, 2X, 4HPR = , F6.2, 2X, 5HPRT *, F6.2, 

2 2X, 4H6R= E15.8, 2X, 6HVSMR- E15.8 ) 

54 FORMAT UOX, 4HET *, 1PE11.4, 2X, 4HXT = » EU.4 > 

55 FORMAT UOX, 5HI0P = , 12, 2X» 5HMOP 12, 2X» 5HOOP = » 12,. 2X, 

1 4HI0 =„ 12, 2X, 5HTOP =, 12, 2X, 5HPOP *, 121 

56 FORMAT (10X, 3HM = , F7.3, 2X, 4HDT = » 1PE11.4,2X, 5HRDT =, Ell. 4, 

1 2X, 3HB =, E11.4.2X, 4HT0 E11.4,2X, 4H8H =, E11.4.2X, 

2 4HFT = , Ell* 4 I 

58 FORMAT I1H0, 41HSU8R INIR HAS COMPUTED THE U<II FROM THE 

2 4BHM( I ) =U< I > INPUT AND THEN SCALED U(I) ON WSTO(8> 

3 19HIF WSTO( 8 ) .NE.O.O. 2X, 9HHSTO(8)= 1PE10.3 ) 

59 FORMAT { 1H0, 5HM(I)= / 51 4X , 1 3, 2X, 1PE 14„ 7 ) ) 

60 FORMAT (1H0, 9X , 3HX = , 1PE11.4, IX, 

1 3 HU =, EU.4, IX, 3HM Ell. 4, IX, 6HTUR6 = » 0PF6.3, IX, 

2 5HGBC «, 1PEH.4 / 

3 10X »4HRW= Ell, 4, IX, 4HVH= E11.4, IX, 4HSW= E11.4, IX, 

4 4HCW= Ell. 4 } 
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FORMAT 

2 

t 1H0, 42HCA*Y(J) 
5X, 3HC A= 1PE12.5, 

OUT OF BOUNDS. RESET 
5X» 5HY( J 5 = E12.5 ) 

TAUIJ>* 0.0, 

63 

FORMAT 

2 

1 1H0, 35HC0MPUTED 
23HG0 TO THE NEXT 

JY . DR.JEF.ORcJEG.GT, 
CASE. , 1QHI$TOUO) = 

300. 

121 

64 

FORMAT 

« 1H0, 6HTF ( I } = / 

5{4X,I3,2X,1PE14.7 1 

J 

65 

FORMAT 

I 1H0, 5HUU)= / 

5I4X,I3, 2X,lPE14 0 7 > 

) 

66 

FORMAT 

2 

3 

l 1H0, 2HI= 13, 3X 
3X, 7HMT ( I ) * E12o 5 
E12o 5/ 9X , 7HVHIU 

, 7HCFI I )* 1PE12.5, 3X, 7HSFUI* E12o5, 
, 3X , 8HSTR( 1 1 = E12.5, 3X, 7HTFU)* 

= E 1 2 o 5 , 3X, - 8HTAUI 1 ) - E12.5, 3X, 


4 8HTAU(2)= E12.5, 3X, 7HVE(1>= E12.5 / 

5 13X, 3HP~ E12.5, 8X, 3HR* E12.5, 6X, 5HCMU* E12.5, 

6 3X, 8HR0T I 2 \ - E12.5 ) 

67 FORMAT (1H0, 46HSU8R INIR HAS COMPUTED THE MUI FROM THE U(I) 

2 39HDATA INPUT, AND MR FROM U(1),MR, AND TO / 

3 10X, 4HMR* F8o4, 5X, 5HTFR= F8.4, 5X, 9HWST0I8)* 

4 1PE10.3 > 


END 
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Subroutine COTR 


$1 BFTC GOTO 


SUBROUTINE COTR (KSTOP, XMAS ) 


SUBROUTINE COTR READS IN ALL OF THE INPUT DATA EXCEPTING THE 
COMMENT DATA WHICH IS READ IN BY SUBR A6IR. 

SUBROUTINE COTR IS CALLED BY SUBROUTINE INIR. 

SUBROUTINE COTR CALLS SUBROUTINE A6IR BEFORE EACH SUBSET OF DATA 
FOR COMMENT. IN ORDER TO INCLUDE SOME GENERAL COMMENT SUBR COTR 
ALSO CALLS SUBR A6IR JUST BEFORE THE EXIT TO THE CALLING ROUTINE 
SUBR INIR. 

SUBR COTR WILL READ IN ALL X STATIONS BUT INIR WILL COMPUTE A 
MAXIMUM OF 99 STATIONS. FOR ALL STATIONS .GE.lOO THE DATA IS 
STOREO IN THE 100TH OATA STATION. HOWEVER, IF CARD READING 
OF X STATION OATA IS USED, THEN NOT MORE THAN 200 CARDS CAN BE 
READ IN. CAROS THAT FOLLOW THE 2C0TH CARD WILL BE READ BY A6IR. 
X(I) FOR THE LAST STATION DATA CARD IS TO BE EITHER 0, BLANK OR 
.LT. X(I-1I. THE LAST STATION DATA CARO IS FOLLOWED BY AT LEAST 
1 CARD OF COMMENT TO BE READ IN BY SUBR A6IR. 

FDR CARD READ-IN NC IS LISTED AFTER ALL CAROS ARE READ IN AND 
STATIONS ARE LISTED ON ISTOtll.NE.O, AND IS THE TOTAL NUM8ER OF 
CARDS READ -IN PROVIDED THE NUMBER OF CARDS IS .LE.200. 

ON TAPE READ-IN OF THE STATION DATA NC IS THE NUMBER OF TAPE 
STATIONS ACTUALLY READ IN. 

FOR TAPE READ-IN THE NUMBER OF STATION POINTS AVAILABLE FOR 
READING-IN IS LISTED AS KENQ AT THE TIME OF READ-IN. 

IF K-END.-GT.10D THEN, AFTER LISTING, COTR RESETS KEND TO 100, THE 
NUMBER OF POINTS TO BE READ IN FROM THE TAPE. KENO WILL BE LISTEO 
AS 100 ON ANY LATER LISTING OF KEND. ON CARD READ IN KEN0=.0. 

ON THE X STATION TAPE READ IN OPTION KEND IS THE NUMBER OF X DATA 
POINTS READ IN PROVIDED KEND. LE. 98. FOR BOTH CARO OR TAPE READ IN 
IF I S= 100 THEN THE X STATION DATA LISTEO IS FOR THE LAST DATA 
STATION READ-IN WHICH MAY BE LATER THAN FOR THE X<100> CARD OR THE 
X<100) POINT FROM THE TAPE. 


c ********* HA IN COMMON V-3 TUF *************** 

COMMON /TUFA/ATUF, 

1 8(300,5), 

2 81 » 8H, BS » BK , 

3 CW( 100) , CF( 10O)»CLIS(AOQ),CAY< 300 ) , 

A CA,CAl,CO,COB,CMTF,CMTG,C,COAL,CMU, 

5 DB( 300) , DBB ( 300 ) , D( 300) ,DP I 300 > , DPB ( 300) , 

b DT( 100) ,DTK(100), 

7 OX,DTXM,OOP ,DI» OJ, DXB, DTM, DTS, 

8 ET, 

9 FB ( 300 ) , FBB( 300 ) ,FPB8( 300) »FPB(300) ,FP(300) ,F(300), 

A FPPI300) ,FPPB(300), 

1 FPE,FPPW,FT,FV, FTU2, 

2 GPB< 300 ) ,GPBB< 300 > , GP ( 300 ) , GPP ( 300 ) ,GPPBt 300) , 

3 GBC(IOO) ,GPW(100), 
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GPPW»GPE, GAM, GAMX, 

HT(IOO) , 

I STO( 16 ) » 

If IC, 10, IBC, I OP, IX, IXE,IT, IXA, IDt IXF 
COMMON /TUFJZ JTUF, 

1 JTR(IOD), 

2 JE, JK,JM,JY,JEF, JEG, JDIV, JEB, JO, 

3 KB»KMI» 

A LABEL (132), ; 

5 LOOP,LOOPF, 

6 M(IOO), MT(IOO), 

7 MOP, MR, ML, ' 

8 NU, 

9 01, 

A P,PB,PM,POP,PR,PRT, 

1 QB,QM,QRB,QRM, Q, 

2 RW ( 100 ) , ROT ( 100 ) , 

3 RB,RM,RC,RMS,RMT,R,RDTK,RXROF,RL,RMTW,RDF,RX 

COMMON /TUFS/STUF, 

1 STR< 100) ,$WC100)»SF(100)»ST(100> , 

2 SHR » STC » SK» STRX , 

3 TAU ( 300 ) , 

A TURB(100),TF( 100), 

5 TO,TOP»TFR» 

6 U(100), 

7 UX, 

8 VE < 300 ) , VEG < 300 ) » VH{ 300 ) , VHP! 300 ) , VHPPI 300 ) , 

9 VW(IOO), 

A VPB , VPM , 

1 WSTO( 20 ) , 

2 X(IOO), 

3 XT , XK, 

A Y < 300 ) , VY ( 300 ) , 

5 ZERO 

REAL KB, M,ML»MR,MT,NU 

INTEGER OOP, POP, TOP 

******** *END OF MAIN COMMON TUF-V3* ************* 
DIMENSION KSTOPI 5) ,XTAP( 100) , UTAP(IOO), RTAPUOO) , XMAS( 10 ) 


C BEGIN A NEW CASE BY REAOING IN SOME COMMENT CAROS. 

CALL A6IR 

KEND= 0 
NC= 0 
I STU* 0 

C READ IN THE INTEGER SWITCH ARRAY. 

READ (5,2) ( ISTOIK), K= 1,15 ) 

ISTO(IO)- i 

IF ( ISTOID.NE.O ) WRITE (6,21) (ISTO(K), K» 1,15) 

CALL A6IR 

READ (5,5) (WSTO(K), K* 1,20 ) 
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THE RESET VALUE OF WSTO(U) IS IN ENGLISH UNITS. 
IF ( WSTOt 111. EQ. 0.0 I WSTO(H)* .15640006-03 

IF ( ISTOm.NE.O > WRITE (6,51) (WSTO(K), K® 1,20) 


READ IN THE LABEL ( K) ARRAY FDR THE X-STATION HEADING. 

CALL A6IR 

READ (5.1) (LABEL(K), K®1,18) 

IF ( ISTOID.NE.O I WRITE (6.1) (LABEL(K), K® 1»18 > 

READ IN THE INITIAL YY ( J 1 » FP ( J ) , GP ( J ) PROFILES. 

CALL A6 I R 

REAO (5,2) JD1V 

IF ( I$TO(l).NE.0 ) WRITE (6,21) JDIV 

CALL A6IR 
READ (5,2) JY 
JYC® JY 

THE FOLLOWING JY IS NOT MODIFIED AGAIN. 

JY=( JY-1)*JDIV+1 

READ (5,3) ( YY ( J )» J®1, JY, JDIV) 

IF ( ISTO( 1 ) .NE.O ) WRITE (6,31) JYC,JY,JDIV, 

■ ( YY ( J ) , J® 1, JY, JDI V ) 


CALL A6IR 
READ (5,2) JEF 
JEFC® JEF 
JEF=(J£F-1)*JDIV+1 

READ (5,3) IFP(J), J*l» JEF. JDIV) 

IF ( I$TO(l).NE.O ) WRITE (6,31) JEFC, JEF, JOIV, 

2 ( FP ( J ) , J= 1, JEF, JDIV ) 

CALL A6IR 

READ (5,2) JEG 

JEGC® JEG 

JEG®(JEG-l)*JDIV+l 

READ (5,3) ( GP( J ) , J®1, JEG, JOIV) 

IF ( WSTO! 9 ) .EO.O. 0 > GO TO 70 

DO 69 J= 1, JEG, JDIV 

69 GP(J)= WST0(9) *GP( J) 

70 IF ( iSTOin.NE.0 ) WRITE (6,31) JEGC , JEG, JDI V, 

2 ( GP(J), J* 1, JEG, JOIV ) 

C READ IN THE PROGRAM OPTION SWITCHES. 

CALL A6IR 

READ (5,2) IOP, MOP, OOP, 10, TOP, POP 

IF ( IOP. EQ. 2. OR. IOP. SO. 3. OR. IOP. EQ. 6. OR. IOP. EQ. 7 ) TOP® 0 

IF (ISTO(l).NE.O) WRITE (6,21) I0P,M0P,D0P, IO,TOP,POP 

C READ IN THE CASE INITIAL PARAMETERS. 

CALL A6IR 

READ (5,4) MR, DT(1), ROT ( 1 ) , BS, TO, BH , FT 

IF ( I OP.EQ .7. AND. DT ( 1 ) • EQ.0.0 ) OT(l)® .001 

IF (ISTO(l).NE.O) WRITE (6,40) MR,DT( 1 ) ,RDT ( 1) ,BS,TO,BH,FT 

CALL A6IR 

C *** X-STATION DATA READ-IN AND RECOMPUTATION SECTION. *** 
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c 

c 

c 


71 

C 

711 


C 

C 


IF 


TEST FOR CARD OR TAPE READ IN OF STATION PARAMETERS# 

( IST0( 15).NE.O ) GO TO 711 

TAPE READ IN TO INTERMEDIATE STORAGE# 

KRS* CLOCK STATION NUMBER. 

KRS* ISTOUU 

00 71 K= 1»KRS 

READ < 1 > KEND 

WRITE (6,67) KEND 

IF ( KEND. GT. IOC ) KEND* 100 

READ (1} (XTAPdltUTAPI n,RTAPI I), I - i.kemdi 

CONTINUE 


!T*100 

I s= o 

IX* 0 


LINE* 0 


TO HERE ON EITHER CARD OR TAPE READ IN. 


LINE IS RESET * 1 WHEN THE SLOPE TEST RESULTS IN A 
LINEAR INTERPOLATION, AND PREVENTS FURTHER TESTING. 


IPS IS TESTED AGAINST IS TO START THE LINEAR 
INTERPOLATION TEST. 


ISS IS USED AS A STORE FOR THE NUMBER OF POINTS 
THE PROFILES ARE STRETCHED AS THE RESULT OF THE 
LINEAR INTERPOLATION. 


ISS*0 

EITHER READ IN 
DATA. 

DO 102 1=1, 203 

TOTAL NUMBER OF 


OR RE-STORE, AND MODIFY 


STATION POINTS READ IN. 


THE X-STAT ION 


NC= I 

STATION COUNTER INCLUDING INTERPOLATED POINTS. 

( IS.LT.100^ j ST0( 8 t ISS BECOMES ISTQ<8) * 1 AFTER THE 
INTERPOLATION. 

ISN* IS- ISS 


SKIP TO 712 ON TAPE READ IN OF STATION DATA. 

IF ( I STO ( 15 ) . EO.O ) GO TO 712 

<5 xt!si,U(IS) ,TURB( IS) ,GBC« I S ) , RW ( I S ) , VWU S I , SW< I S ) ,CW< I S) 
GO TO 713 


C TRANSFER FROM INTERMEDIATE STORAGE THE TAPE DATA. 

712 XUS)* XTAP(tSN) 

U(IS)= UTAP(ISN) 

TURBUS)* 0.0 
GBCUS)* 0.0 

RW (IS)* RTAP(ISN) 

VW(IS>= 0.0 
SW(IS)= 0.0 

c CW(IS) ^ INSTRUCTION TO CHANGE THE X-STATION DATA CAN BE 

C INSERTED HERE. 

C TO HERE ON EITHER CARD OR TAPE READ OF STATION DATA. 

713 IF ( I0P.E0.2.0R.IOP.EQ.3.OR.IOP.EQ.6.0R.IOP.E0.7 ) TURB(IS)*1.0 

IF ( WST0(5 ) .NE.0.0 > X(IS)= WSTO( 5 ) *X( I S) 
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IF ( WSTO( 5 ) .NE.0.0 > RW(IS)= WSTO ( 5 ) *RW { I S ) 

IF { WST0U6 >. NE.0.0 ) U(I)* WSTO< 16 ) *U( I ) 

IF ( WSTOI8). NE.0.0 » U( I S I * WSTO< 8 )*U( IS) 

IF ( TOP.EQ.l I TURB ( I S ) = 0.0 

IF I TURBU S ).GE. 1. ) ISTU= 1 

IF ( ISTU.EO.l ) TURBI I S ) = 1. 

IF ( WSTOU7 ) .NE.0.0 ) GBC(l>* W$T0(17)*GBCII ) 

IF ( IO.EQ.O > RWI IS)= 0.0 

IF < X( IS). NE.0.0 ) GO TO 714 
IF (IOP.EQ.4.ANO.BS.EQ.1.0) U(lS>*0.0 

GO TO 15 

C LINE IS RESET = 1 AFTER DUX.GT.DUZ. 

714 IF < LINE.EQ.l ) GO TO 15 

IF ( ISTOm • EQ.O ) GO TO 15 


C * * * BEGIN THE LINEAR INTERPOLATION SECTION OF POINTS. 

IF ( IS.LE. IPS ) GO TO 15 

DUX= ( U(I$)-U( IS-l) ) / ( XCIS)-X< IS-l) ) 

DUZ* ( U(IS-l) - U(l> ) / XC1S-1) 

IF I DUX.LE.DOZ ) GO TO 15 

IF ( ISTO(l>. NE.O ) WRITE (6,41) 

2 X (IS),U(IS) *TURB ( IS), GBCI I S) ,RW( IS) , VW( IS) ,SW( IS) ,CW( I S) , IS 

ISX= ISTOCB ) + IS 

I F I N= ISX-1 
FIN* IFIN 
LINE* 1 

72 xnsx+n- xds) 

U(ISX+1)= U(IS> 

TURB ( I SX+1 ) * TURB (IS) 

GBC ( ISX+1 )= GBC(IS) 

RW ( ISX+l )* RW( IS ) 

VW(ISX*1)= VW(IS) 

SWIlSX+l)* SW(IS) 

CW(iSX+l>= C VI T I S 1 
ISM* IS-l 
XUSX)= X(ISM) 

UUSXJ* UCISM) 

TURB ( I SX > = TURB (ISM) 

GBC ( ISX) = GBCI ISM) 

RWU SX)= RW( ISM) 

VWIISX)* VW( ISM) 

SW(ISX)* SMI ISM ) 

CW(ISX)* CM ( ISM ) 

IF ( ISTO(1).NE.O ) WRITE (6,42) 

X( ISM),l)( ISM), TURB ( ISM), GBCI ISM ) ,RW( I SM > , VW(ISM) , 

SW( ISM),CW(ISM), ISM 
X<2> = X(ISM)/FIN 
DOU* ( UdSM)-U(l) ) / FIN 
U( 2 ) = U(l) + OOU 
DOT = (TURB( ISM)-TURB( 1) J/FIN 
TURB( 2 ) = TURB ( 1 ) + DOT 
DOR* ( RWUSM)-RW(l) ) / FIN 
DOG* (GBCI ISM) -GBC( 1) ) / FIN 
GBC ( 2 ) = GBC ( 1 ) + DOG 
RWt 2 )* RW ( l ) + DOR 
IS* 2 

DOV* (VW(lSM)-VW(l) ) / FIN 
VWI 2 )* VW(l) ♦ OOV 
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DOS* fSWI ISM)-SW( ID / FIN 
SW(2>= SWU) ♦ DOS 
DOC* (CWl ISM)-CW(l) ) / FIN 
CW(2)= CWIl ) + DOC 

IF ( ISTOID.NE.O ) WRITE (6,41) 

X(2 > ,U( 21 ,TURBI2) , GBC< 2 ) , RWI 2 > , VWI2 ) ,SW(2I »CWI2) tl S 
INSERTION OF THE INTERPOLATION POINTS. 

DO 13 KX* 3, IFIN 
IX= KX 

XIKX)= XCKX-1) + X ( 2 ) 

U ( KX I * U(KX-l) + OQU 
TURBIKX)* TUR8IKX-1) ♦ DOT 
GBC l KX ) = GBCIKX-l) ♦ DOG 
RW ( KX ) = RWlKX-i) + DOR 
VW( KX I = VWIKX-1) + DOV 
SWIKX)* SW(KX-l) ♦ DOS 
CW(KX)* CWIKX-1) + DOC 
IF I TOP.EQ.I ) TURBI KX) * 0.0 

IF ( I OP.EQ.T ) TURBIKX)* 1.0 

IF ( TOP.NE.l. AND. I0P.NE.7 ) TURB(KX)= TURBtKX-1) 

IF ( TOP.NE.l ) GO TO 11 

IF ( ISTOID.NE.O ) WRITE 16,41) 

2 X ( KX ) , UI KX ) ,TURB(KX) , GBC I KX ) , RWI KX ) , VW ( KX > » SWI KX) ,CWIKX),KX 

CONTINUE 
IX* ISX 

IF ( ISTOID.NE.O ) WRITE (6,41) 

2 XI ISXI.UIISX) ,TUR8(ISX),GBCI I SX ) , RWI I SX ) , VWU SX ) , SWI I SX) r CWU SX ) 

3 ,ISX 
IS* ISX + 1 

IF ( ISTOI 15 ) • NE.O ) GO TO 15 

ISS* ISTOI 8) * l 

C * * 4 END OF THE LINEAR INTERPOLATION SECTION OF POINTS. 

C SKIP TO HERE AFTER COMPLETING THE LINEAR SECTION. 

15 IF I ISTOID.NE.O > WRITE 16,41) 

2 X(IS)»U(IS),TURB(IS),GBC(IS),RW(IS),VW< IS ) , SWI I S) ,CWi I S ) , I S 
C AT THE END OF THE STATION DATA READ IN IX* THE COUNT 

C OF THE LAST STATION TO BE COMPUTEO. 

IX* IS 

IF I IS.EQ.l ) GO TO 102 

C TO PERMIT ALL STATIONS .LE.2Q0 TO BE READ IN. 

IF I 1S.GE.100 ) GO TO 1011 

C TEST FOR THE LAST STATION TO BE READ IN. 

IF I (XIIS)-XUS-l) ).GT.0.0 ) GO TO 102 

C DELAY THE END OF STATION DATA READ IN TEST UNTIL 

C II X ) .GT. IPS ON TAPE READ IN OF STATION OATA. 

IF I ISTOI 15).EQ. 0. AND. IS. LE. IPS ) GO TO 102 

C THE COUNT OF THE LAST X STATION TO BE COMPUTED IS 

C MADE HERE WHEN IS.EQ.100 

101 IX* IS - 1 

GO TO 1030 

C TEST FOR THE LAST X STATION TO BE READ IN. 

1011 IF I IXUS)-X(IS-l) ).LE.0.0 ) GO TO 101 
C END OF THE STATION DATA READ IN LOOP. 

102 CONTINUE 


11 

13 

141 
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1030 


GO TO 1032 


IF I TOP. EQ.1.0R.WST0U3). EQ.0.0 ) 

00 1031 Is 1,100 

IF (TURB(I> .LE.WST0(13) l GO TO 1031 

C RESET IT FOR THE FORCED TURBULENT RESTART AT IT* 

IT* I ♦ 1 
GO TO 1032 

1031 CONTINUE 

1032 IF ( I0P.EQ.4. AND. ROT(l) .EQ.0.0 ) RDT(1)= XI 2 I *U f 2) *W$T0 (3 ) 

IF ( IOP.EQ.7. AND. OOP. GT.D. AND. RDT(1>. EQ.0.0 ) 

2 RDT ( 1 ) = um*DTll> / WSTO(ll) 

IF MR IS COMPUTED IT IS ASSUMED THAT 

UUI IS THE MACH NUMBER = HU). AFTER THE EXIT FROM 
SUBR COTR THEN IF MR.LE. ( ZERO ) .OR OOP.LE.O SUBR INIR 
COMPUTES THE U( I» FROM THE HU)*U(II INPUT. 

IF ( IOP. EQ.4.AN0. MR. EQ.0.0. AND.DOP.LE.O ) GO TO 1033 

IF I I0P.NE.4. AND.MR.EQ.C.O.AND.DOP.LE.O ) GO TO 1034 

MR* .001 MAY OVERWRITE THE PRECFEDING VALUE. 

IF ( IOP. EQ. 7. AND.UU ). EQ.0.0. AND. MR. EQ.0.0. AND. OOP.LE.O ) 

2 GO TO 1035 

GO TO 1036 

THE INPUT UC 2 1 IS A MACH NUMBER 

1033 MR= U( 2 ) 

IF ( WSTOm.NE.O.O > MRs MR/WST0I8I 

GO TO 1036 

THE INPUT U(l) IS A MACH NUMBER 

1034 MR* um 

IF ( WST0( 8 1 .NE.0. 0 > MR= MR/WST0(B) 

GO TO 1036 

WST0( 8 ) IS A MODEL SCALE NUMBER. 

1035 MR= .001 

IF ( WSTOm.NE.O.O ) MR= MR/WST0I8) 

RECOMPUTE BS IF I0P.EQ.7 

1036 IF ( IOP. NE . 7 ) GO TO 1037 
DUDX= I UI2)-U{1>> / (X(2)-Xtl)l 
UAV= (U( 1)*-Ut 2 ) ) / 2. 

BS= ( DUDX/’UAV ) * OT«ii 


WSTO(IO) IS A NON-O I MENS I ONALI ZING NUMBER. 

1037 IF ( WSTO(IO). EQ.0.0. AND. IST0( 12KEQ.0 ) WSTOI 10 » =X(1 X ) 

IF ( W$?O(1O).EQ.O.D.AND*IST0(12).EQ.1.AND.WSTO(5).NE*O.D ) 

2 WSTOI 10 ) s XMASIU+WSTOI 5) 

ISS IS USED IN THE LINEAR INTERPOLATION SECTION TO 
COMPUTE ISNs IS-ISS WHERE ISS IS RESET AFTER THE 
FINAL INTERPOLATED FUNCTION IS COMPUTED. 

IF ( ISTOI 8 ) .NE .0 ) ISS= IST0I8) + 1 

WRITE (6,571 I X,X( IX) ,X( IS I, MR, DTI 1 > ,RDT( 11 ,8S, l T , NC ,KEND , 
2 WST0I10), ISS 

CALL A6IR 

IF USTam.NE.OI WRITE (6,99) 


END OF CARD OR TAPE INPUT DATA FOR THIS CASE. SUBR NDIR CALLS 
SUBR A6IR FOR FURTHER COMMENT. SUBR INIR CALLS A6IR FOR CASE END 
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C ON ARRAY OVERFLOW,, SUBR I TFR CALLS SUBR A6IR FOR COMMENT IF THE 

C CASE ENOS WITH THE STARTING PROFILES,, 

RETURN 


l FORMAT (18A4) 

2 FORMAT (1515) 

3 FORMAT (6F10.5J 

4 FORMAT (8F10.5) 

5 FORMAT (5E15.8) 

21 FORMAT (IX, 1515) 

31 FORMAT <1X,I5,1QX, 2(U»1H,) / <1X,6F14,8) ) 

AO FORMAT ( IX, F9. 6 , FID. 7, F 10.2, 4( F10. A ) V 

41 FORMAT ( 1X»8F10.5»5X,4HIS 3 14 > 

42 FORMAT ( 1H0,BF10*5, 5X, 4HIS= 14 / IX ) 

51 FORMAT (1X,5EI5.8> 

57 FORMAT ( 17HXEND OF CARD READ, 5X, 18HN0. OF X STATIONS 3 13, 3X, 

2 22HLAST X TO BE COMPUTED 3 E15.8, 5X, 7HLAST X 3 E15.8 / 

3 1HK, 4HMR 3 1PE14.7, 5X, 7HDT(1) 3 E14.7, 5X, 8HRDT ( 1 ) - 

4 £14*7, 5X, 4HBS= E14.7, 5X, 3HIT= 14, 2X, 3HNC 3 I3,2X, 

5 6HKEND= 14 / 61X, 10HWSTOI10) 3 E14.7, 5X, 

7 34HN0. OF X-STATION POINTS INCREASE 3 13 > 

58 FORMAT < 1H0,22HRESCAL ED U(X) BY UKX= 1PE14.7 ) 

67 FORMAT (1H0, 6HKEND* 14, ) 

99 FORMAT (1HI) 


END 
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suoroutine ITFR 


SIBFTC I TFO 


SUBROUTINE 


ITFR 


SUBROUTINE ITFR GENERATES THE STARTING PROFILES F'CETA) OR FPIJ), 

G * I ETA ) OR GP(J), AND LISTS THE STARTING STATION PARAMETERS WHEN 
THE INPUT PROFILES ARE UNCHANGED. 

FOR LAMINAR FLOW ITFR RESCALES P*»Q*»R*,VP* AND COMPUTES DTX.MT. 
CF,HT,ST. SUBR ITFR ENDS THE CASE IF IX.LE.i(X) AND SENDS 
CONTROL TO SUBR INIR FOR THE NEXT CASE ON I STO< 10) .EQ. 8. ON A 
NORMAL EXIT FROM ITFR 1ST0( IQ ) .EQ.2. SUBR ITFR IS RE-ENTERED 

FR0M SUBR NOIR ON IST0U4I.E0.1 To MAKE A TURBULENT 
RE-START AFTER A LAMINAR SEPARATION OCCURS IN SUBR ITSR. 

SUBR ITFR IS ALSO RE-ENTERED WHEN A FORCED TRANSITION TO 
TURBULENT FLOW OCCURS IN SUBR ITSR. 


SUBROUTINE ITFR IS CALLED BY THE MAIN ROUTINE TUF. 

SUBROUTINE ITFR CALLS SUBROUTINES I NTEG , V I S , PROF YL, FI L E , A6I R. 


THE ASSUMED CONVERGENCE OF THE MOMENTUM EQUATION PROFILES AND 
THE OENSITY, DENSITY X-DERIVATIVE, EFFECTIVE VISCOSITY, EFFECTIVE 

LQCAL SHEAR STRESS PROFILES IS DETERMINED BY 
TESTS ON ABSIF(JE)-!. J.LT.XT WHERE XT IS INITIALIZED IN SUBR INIR 
TO •005* 

HOWEVER, IN SUBR ITSR, IN ORDER TO TEST F(JE) THEN 
ABS( IF*MJ=1)-FPPW)/FPPW).LE.XT OR F»»(J=1) ON 2 SUCCESSIVE 
ITERATES OF THE MOMENTUM EQUATION PROFILE AT THE WALL MUST MFFT 4 
CONVERGENCE TEST CRITERION. UST " EET A 

cShEUS! ™ EN 


C ********* MAIN COMMON V-3TUF *************** 

COMMON /TUFA/ATUF, 

1 B( 300, 5 ) , 

2 B1,BH,BS,BK, 

3 CW(IOO) ,CF ( 10D ),CLIS(400)»CAY( 300) , 

Z ca,cai,co, cob, cmtf,cmtg,c, coal, cmu, 

5 DB{ 300) , DBS 1300) , D( 300) ,OPC 300 ) ,DPB ( 3001 * 

6 DT(100),DTK<100), 

7 DX,DTXM,DOP,DI,DJ,DXB,DTM,DTS, 

8 £ T * 

l FpifSSi;^PPB?3^^ BB ' 3CO, ' FPB<300> - FP,i00! ’ F<300> - 

1 FPE,FPPW,FT,FV,FTU2„ 

2 GPB(30Di,GP8B(300I,GP( 300 )»GPPC300),GPP8I300I, 
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3 GBC1100 >,GPW<100), 

4 GPPW,GPE, GAM,GAMX, 

5 HT(IOO), 

6 I STO( 16 ) , 

7 I,IC,IO, IBC,I0P,IX,IXE,IT,IXA,ID,1XF 

COMMON /TUFJ/ JTUF, 

1 JTR(IOO), 

2 JE, JK,JM, JY,JEF,JEG, JDIV,JEB, JD, 

3 KBfKMI, 

if LABEL(132 ) « 

5 LOOP* LOOPF t 

6 M(100),MT( 100), 

7 MOP, MR, ML* 

B NU, 

9 ' 01, 

A P,PB,PM,POP,PR,PRT, 

1 QB,QM,ORB,QRM,Q, 

2 RW(IOO) ,RDT(100), 

3 RB,RM,RC,RMS,RMT*R,RDTK,RXRDF,RL,RMTW,RDF,RX 
COMMON /TUFS/STUF, 

1 STR ( 103 ) ,SW(100 )»SF(100),ST( 100 » , 

2 SHR, STC , SK, STRX , 

3 TAUC 300 ) , 

4 TURB< 100) ,TF( 100), 

5 TO, TOP, TFR, 

6 U(100), 

7 UX, 

8 VE ( 300 ) ,VEG(300),VH(300),VHPI300) ,VHPP(300) , 

9 VW(iOO), 

A VPB, VPM, 

1 WSTO(20), 

2 X(100), 

3 XT »XK* 

if Y<300>, YY(3r>0), 

5 ZERO 

REAL KB, M,ML»MR,MT,NU 

INTEGER DOP , POP , TOP 

c ******** *ENO OF MAIN COMMON TUF-V3* ************* 

I STO( 10 )= 2 

LST2= 0 

IF ( IST0(5).NE.1.0R.P0P.EQ.l ) GO TO 140 

I, ISTO(IO) 

RETURN TO HERE TO RECOMPUTE THE F • (ETA) PROFILE ON 
IQP.EQ.5 RESET FROM IDP=4 IF 2.*ABS(0U/DX).LT. *3 AT 
EFN-42U 

BEGINNING OF THE LOOP TO GENERATE THE STARTING 
PROFILES FP C J ) = FMETA) OF THE MOMENTUM EQUATION 
AND GP < J ) = GMETA) OF THE ENERGY EQUATION TOGETHER 
WITH THE EFFECTIVE VI SCOS I TY 0 CONOUCTI V I TV, AND 
DENSITY PROFILES AND OTHER MOMENTUM AND ENERGY 
PROFILESo 


WRITE (6,70) 
WRITE (6,71) 

C 

C 

c 

140 CONTINUE 
C 
C 

c 

C 

c 

c 
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THE MOMENTUM-ENERGY LOOP. 

00 399 MAE* 1 ,KMI 

IF ( IST0(5).NE.1.0R.P0P.EQ.l » GO TO 141 

WRITE (6,981 I, ISTO(IO), MAE 

THE MOMENTUM EQUATION LOOP. 

HEAD OF LOOP FOR THE F'(ETA) PROFILE . (INNER LOOP.) 
00 349 MOM* 1 , KM I 

FOR A CONSTANT DENSITY FLOW MOP.LT.O. 

IF (MOP.LT.O) GO TO 305 

FOR VARIABLE PROPERTY FLOW, RECOMPUTE D( J)*DENSITY, 
DP(J)* THE R(DELTA(*)*DELTA(*)*(X-OERIVATIVE OF 
DENSITY). 

AND DB ( J ) = ( X DERIVATIVE OF DENSITY TERM) *DELTA ( *) . 

Bl*TF( I)-I. 

00 304 J*l, JY 
FV=1.-FP( J) 

DENSITY RATIO PROFILE. SEE EQUA 1 1-16. 

0( J ) =2. *TF ( I )*< l.-BH+GP( J ) )/( I. + SQRT( l.+4.*BI*FV*FV*TF ( I ) 

1 *( l.-BH*GP(J ) ) ) ) 

C SEE EQUA 11-27. 

DP( J)=(2.*Bi*D< J)*D(J)*FV*FPP( J)-TF( I >*BH*GPP( J) ) 

1 /U.+2.*B1*D( J)*FV*FV) 

C SEE EQUA 11-32. 

DB( J)=(P*(SHR-1. )*M{ l )*M{ I ) *TF ( I ) 

1 *(1.-BH*GP( J )-D( J)*D( J)*FV*FV) 

2 * ( SHR— 1 • ) *M( I)*M(I)*D( J)*0( J)*FV*GAMX*(FP{ J)+Y( J)*FPP(J)) 

3 — TF ( I )*BH*(S TRX*GP( J ) + GAMX*GPP ( J )*Y( J ) ) ) 

4 / ( 1 • + ( SHR-1. ) *M ( I ) *M ( I )*D( J )*FV*FV) 

304 CONTINUE 

305 CONTINUE 

TEST IOP TO SET THE PARAMETERS FOR EITHER LAMINAR 
OR TURBULENT STARTING FLOW. 

IF IOP= 1,4,5 THE STARTING FLOW IS LAMINAR. 

IF IOP= 2, 3, 6, 7 THE STARTING FLOW IS TURBULENT. 

306 GO TO (315,320,321,310,315,320,321), IOP 

THE PROGRAM SECTION TO RECOMPUTE THE INITIAL PROFILE 
FOR SIMILAR LAMINAR STARTING FLOW. 

310 CONTINUE 

**** SET P*, Q* AND R* **** 

SEE EQUA 11-25. 

C=FIJE)*C 
P*C*C*RL*BS 
C PARAMETER IN EQUA 11-14. 

Q=P*<l.-ML*ML)+C*C*RL+( l.-BS )/2. 

VP - VW( I )/U( I ) *C*RL 
I F ( I A8S ( DOP ) • EQ . 1 ) VP=VP/D(1) 

RDT( 2)=C*RL 
RDF*RDT ( 2 ) 

CA=0.0 
R=0. 0 

IF (ABS(RW(2)/(X(2)-X(l))).LT.l.E-8) GO TO 313 
C A PARAMETER CONTAINING ( D R{W)/DX>. EQUA H-I4. 
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R»RL*C*C*iRM(3)-RW< 1) ) / ( X< 3 ) -X ( l M ♦( X( 2 >-X< 1 ) ) / ( RWI 3>*RW( 1 ) > 

C & PARAMETER OF COS A WHERE A I S THE ANGLE BETWEEN THE 

C WALL AND THE SYMMETRICAL BODY AXIS, 

CA=2.*0I*C0AL*C*(X< 2)-X( U >/RW<2) 

C Y(J) IS RECOMPUTED FROM THE ORIGINAL YY(J). 

00 312 J*l, JY 

C YY(J) HERE IS THE COMPLETED PROFILE, 

Y( J)*YY< J>*( YY ( J )*CA/ 4. ) 

312 CONTINUE 

313 CONTINUE 

C QR IS USED IN EQUA III-6E. 

QR=Q+R 

C **** END OF THE SIMILAR LAMINAR PARAMETER RECOMPUTATION. 

314 GO TO 330 

SKIP TO HERE FROM EFN-306 ON IOP. EQ. 1*5. IOP MAY 
HAVE BEEN RESET* 5 FROM 4 AT EFN-421. LAMINAR FLOW. 

315 CONTINUE 

FPP(l)=FPPm*F< JE) 

CFU) = 2.*TAU(n 

VP * VW(I l/U<I)*RDTm 

I F< I ABS ( OOP I ,EQ. 1 1 VP=VP/0(1I 
316 GO TO 325 

SKIP TO HERE FROM EFN -306 IF IOP.EQ.2,6. 

TURBULENT STARTING FLOW. 

320 CONTINUE 

SET P ANO 0 

P=-TAU(i)*BS 

SKIP TO HERE FROM EFN-306 IF IOP.EQ.3,7. 

TURBULENT STARTING FLOW. 

321 CONTINUE 

CFII >=2.*TAU<1) 

GAM=SQRT(ABS(TAU(im 

GAMX=-GAM/$K*(Q+CMU*P) 

IF TRUE RECOMPUTE THE STANTON NUMBER GRADIENT 
PARAMETER. 

IF (GAM. GT. ZERO) STRX=-< GAM+STRI I) /GAM ) /SK* ( Q+CMU*P ) 

VP * vwm/uti) 

IFUABS(DOP).EQ.l) VP*VP/D(1) 

C ENTER HERE FROM EFN-316 IF IOP. EQ. 1,5. 

C LAMINAR STARTING FLOW. 

325 CONTINUE 

C TO COMPUTE 0 AND QR 

DO 326 J=l, JE 

VH< J) = UR*D( J>*< V< J >-F I J) )+GAM/SK*CMU*P*YC J )*D( J)-VP)*FPP( J) 

1 MR*DPU)*(Y(J)-F(J))-(P*DIJHDBIJII*(2.-FP(J)I 

2 ♦<1.-FP< J) )*( D( J )-Y( J ) *DP ( J ) )*GAM/SK*CMU*P-VP*DPf J ) ) *FP( J I 

3 +R4DPI J)*FCJ ) + P*(D(J >-l.)-R*Y(J>*DP( J )+DB( J H-VP*DP( J)) 

VHP( J)*(D( J)*(Y( J)-F( J) )+GAM/SK*Y( J)*D( J) )*FPP(JJ 

1 ♦(DP( J)*(Y(J»-FC J) ) 

2 -Ml.-FP(J) )*( 0( J I-Y ( J) *0P( J ) ) *GAM/SK )*FP ( J ) 

. 3 -(Y(J)-F(J))*DP(J) 

326 CONTINUE 
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c 


SUM BY THE TRAPEZOIDAL RULE. 

CALL INTEG <JE, JO, Y, VH, 0.0, VH) 

CALL INTEG <JE, JO, Y, VHP, 0.0, VHP) 

C FOR BOTH LAMINAR, EXCEPT WHEN IQP.EQ.4, AND 

C TURBULENT FLOW. SEE EQUA 11-41. 

Qa-( CF ( I )/2.*RDF+VH(JE)/F( JE) )/VHP( JE)*FIJE) 

QR*Q+R 

IF ISTO(5).EQ.O SKIP LISTING OF VE »VEG» VH, VHP AT 
EXIT OF SUBR VIS. 

SKIP TO HERE FROM EFN-314 IF I0P.EQ.4, LAMINAR FLOW. 
TO HERE ON ALL I0P. 

330 CONTINUE 

CALCULATE VE* OR VE, THE EFFECTIVE VISCOSITY PROFILE 
ANO VEG* OR VEG THE EFFECTIVE CONDUCTIVITY PROFILE. 
THE CALL OF SUBR VIS IS NOT SKIPPED. 

CALL VIS ( JE, JY, JO, YY, FP, FPP, GP, GPP, 0, DP, TAU, VH,. VHP, 

1 TURBII), SWII), CWII), SHR, BH, STC, TO, TFII), ROTH), DTIII, 

2 FIJY), PR, PRT , JK, VE, VEG, ISTO ) 

IF THE INPUT PROFILES ARE CONSIDERED CORRECT THEN 
LEAVE THE MOMENTUM LOOP. 

(SKIP THE FP=F • ( ETA ) , F ( ETA ) , T AU( ETA) AND SF(I) 
PROFILE RECOMPUTATIONS.) 

331 IF (I0P.LE.3) GO TO 350 

COMPUTE THE COEFFICIENT PROFILES AND CALL SUBR 
PROFYL FOR THE FMETA) PROFILE. 

FPPW*FPP( 1) 

FPE=D.Q 

DO 335 J=l, JY 

SEE EQUA III-6E. 

C0=QR*(Y< J)-F(J) )-VP 

SEE EQUA III-9A. 

B( J, 1 ) =C0*DP( J)-(P*D(J) +DB( J) )*I2.-FP(J)) 

1 -(l.-FP( J) )*(0( J )-Y( J)*DP(J) ) *GAMX 

SEE EQUA III-9B. 

B(J»2)-(C0-Y(J)*GAMX)*O(J) 

SEE EQUA I I I-9C. 

B( J,3)=-C0*DP< J >*P*(D< J )-i. I+DBI J) 

SEE EQUA 1 1 1-90. 

B( J, 4) =- ( l.+CA*Y ( J ) )*VE ( J )*RDF 
SEE EQUA 1 1 1-9, 

B(J,5>=-DP(J)/D(J)*U.-FP(J) ) 

335 CONTINUE 

SOLVE THE MOMENTUM EQUA. FOR FMETA). 

SEE EQUA 1 1 1-7. 

CALL PROFYL (JEF, JY, JD, Y, B, ET, 1.0, FPPW, FPE , 2, 

1 FP, VH, VHP, VHPP) 

JE-MAXOI JEF, JEG ) 

COMPUTE THE F* M ETA ) PROFILE BY 1ST DIFFERENCES OF 
THE FMETA) PROFILE. 

COMPUTE THE SHEAR STRESS PROFILE TAU(J),. AND VHIJ). 

‘ JM=1 
J YM= JY- 1 
00 340 J*l, JYM 

C F 1 M ETA) PROFILE. 
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FPP( J)=(FP( J + 1)“FP( JM) )/(Y( J + 1J-VC JM>) 

JM= J 

THE LOCAL SHEAR STRESS. 

TAU(J)=VE(J)*(DP(J1/D(J )*( l.-FP( J) )-FPPC J) )*SQRT(1.+CA*Y( J) ) 
VH(J)=( l.-FP< J) )*(1.-D( J»*< l.-FP( J ) J ) 

CONTINUE 

FPP(JY>*0.0 
TAU( JY ) =0.0 
VH ( JY ) =0.0 

C SUM FMETA) FOR F I ETA ) BY THE TRAPEZOIDAL RULE. 

CALL INTEG (JE, JD» Y, FP, 0.0, F) 

C COMPUTE THETA FOR SF= DELTA (*> /THETA. SEE 

C EQUA H-22. 

CALL INTEG (JE, JD, Y, VH, 0.0, VH > 

SF(I )»F(JE)/VH(JE) 

C ***% PRINT OUT INTERMEDIATE FP PARAMETERS AND VARIABLES **** 

IF ( I$T0(5).NE.1.0R.P0P.EQ.l ) GO TO 341 

WRITE (6,72) I, JK, JEF, F(JEF), FPP(l), SF(I), P, 0, R,.TF(l), 
2 M( I ) , VE( 1 ) » VEG( 1 ) , VH( 1 ) , VHP ( 1 ) ,D ( l ) ,D ( JY ) ,DP ( l I »DP ( JY) 

C **** TEST FOR CONVERGENCE OF FP **** 

341 IF I MOM .GT.l.AND.ABS(F(JE)-l„).LT.XT) GO TO 350 
C EFN 349 IS THE LOOPF= 1,KMI END FOR FMETA). 

C END OF THE MOMENTUM LOOP. 

349 CONTINUE 

C THE INTERMEDIATE LOOP FOR THE FMETA) PROFILE ENDS. 


C 

340 


C IF I0P.LE.3 SKIP TO HERE FROM EFN 331, THE 

C RECOMPUTATION OF THE MOMENTUM PROFILE. 

350 CONTINUE 

C **** SET BOUNDARY CONDITIONS ON GP OR GPP **** 

C SKIP THE COMPUTATION OF THE G* (ETA) PROFILE IF 

C ABS ( MOP ) . EO. 1 

IBC=1ABS( MOP) 

351 GO TO (400,352,353), IBC 
352 CONTINUE 

GPW< I)=GBC( I ) 

GPPW=GPP( 1) 

STR( I ) =-GPPW/D( 1 )*VEG( 1 ) 

GO TO 354 

C I BC= 3 

353 CONTINUE 
GPW( I ) =GP ( 1 ) 

GPPW=-GBC(I ) *D( D/VEGll) 

IF (I0P.EQ.4) GPPW=GPPW*C*RL 
IF (IOP.E0.4) STR ( I ) = GBC(I)/C/RL 

354 CONTINUE 

C IF THE INPUT PROFILES ARE CONSIDERED CORRECT SKIP 

C THE G* (ETA ) PROFILE RECOMPUTATION AND GO TO LIST. 

355 IF U0P.LE.3) GO TO 410 

C COMPUTE THE COEFFICIENT PROFILES AND CALL SUBR 

C PROFYL FOR THE GP=GMETA) PROFILE. 

C SEE EQUAS III-iOA TO III-10E FOR TURBULENT FLOW AND 

C II 1-12 A TO 1 1 1-3L2E FOR SIMILAR LAMINAR FLOW., 
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GPE®0. 0 

356 00 360 J»l, JY 

B(J,1»=-(1.-FP( J))*STRX 
B< J,2)=QR*( Y( J)-F( J H-VP-GAMX*Y( J) 

8< J,3)=0.0 

B( J,4)=-( l.+CA*Y( J) )*VEG( J)/D( J)*RDF 

B( J, 5 ) =- ( SHR-1. )*M( l )*M( I )/BH/TF(,I )*(VE( J)/VEG( J)-l. ) 

1 *D( J)*(1.-FP( J}| *(DP( J)*< l.-FP< J!)-D( J)*FPP(J) > 

360 CONTINUE 

C COMPUTE GMETA) BY EQUA 1 1 1 “8. 

CALL PROFYL UEG, JY, JD, Y, B, ET, GPWU), GPPW, GPE, IBC,. 

1 GP, VH, VHP, VHPPI 

JE=MAX0 ( JEF , JEG ) 

JM*1 

J YM* JY-1 

EXCEPTING GPP< 1 ) COMPUTE G’META) BY 1ST CENTRAL 
DIFFERENCES. 

DO 365 J=l, JYM 

GPPf J ) = (GP( J+l ) -GP( JM ) ) / ( Y( J+l )-Y( JM) ) 

JM-J 

365 CONTINUE 

IF (IBC.EQ.3) GPP(1)=GPPW 

*** LIST EACH MAIN L00P=1,KMI LOOP VALUE AT THE WALL. 

IF ( ISTO(5).NE.1.0R.P0P.EQ.l I GO TO 366 

WRITE (6,76) I, JEG, GP(1), GPP(l), C, RL 

FOR CONSTANT DENSITY FLOW LEAVE THE MOMENTUM-ENERGY 
LOOP. 

C * * * THE STARTING STATION OUTPUT PARAMETER SECTION. * * * 

366 IF (MOP.LT.OJ GO TO 400 

C TEST G' OR G" AT THE WALL ON EACH MAIN LOOP=1,KMI 

C LOOP. 

IF (MAE .LT.2) GO TO 399 
IF ( ABS < GPW ( l ) ) . GT. ZERO ) GO TO 396 
IF (ABS(GP(l)-GPW(I n.LT.ZERO) GO TO 397 
GO TO 399 

396 CONTINUE 

IF (ABS( (GPU»-GPW( I))/GPU) ).GT.XT) GOTO 399 

397 CONTINUE 

IF ( ABS(GPPW).GT.ZERO) GO TO 398 
IF (A6S(GPP< 1J-GPPW I.LT.ZERO) GO TO 400 
GO TO 399 

398 CONTINUE 

IF ( ABS( 1GPP(1) -GPPW)/GPPW).LT.XT) GO TO 400 
C EFN 399 IS THE LOOP END OF THE MAIN LOOP TO GENERATE 

C STARTING PROFILES OF F* ( ETA) AND GMETA). 

399 CONTINUE 
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SKIP TO HERE FROM EFN 351 TO BYPASS THE GMETA) 
PROFILE SECTION ON ABS ( MOP I « EQ . 1 . 

400 CONTINUE 
GO TO 415 

TO HERE FROM EFN 355 TO SKIP RECOMPUTATION OF THE 
INPUT GMETA) PROFILE WHEN I0P.EQ.3. ALSO THE 
RECOMPUTATION OF THE F M ETA ) ,F • M ETA ) , TAU ( ET A > 
PROFILES AND SF II) BY SUBR ITFR HAS SKIPPED IN THE 
MOMENTUM LOOP. 

410 CONTINUE 

IF (POPoEQ.U GO TO 415 

**** print OUT PARAMETERS (IF INPUT PROFILES ARE UNCHANGED) **** 

WRITE (6,72) I, JK, JEF, F(JEF), FPP(l), SFU), P, Q» R 
WRITE (6,76) I, JEG, GP(1), GPP(l), D(l), TF(I> 

415 CONTINUE 

SUBR ITSR SETS THE LOOP STARTING INDEX* IXF. 

I XF* I+l 

416 GO TO (425,430,430,420,425,430,430), IOP 

IOP.EQ.4 ONLY. 

ABS(2.*(DU/DX).LT..3) TO USE THE PRESENT PROFILE AT 
I ( X ) =2 AS THE STARTING PROFILE.. OTHERWISE RECOMPUTE 
ON IOP = 5 RESET. 

420 CONTINUE 

C **** FOR OPTION 4, CALCULATE DT(2>, ROT ( 2 ) AND PRINT EXPLANATION **** 
SF ( 1 )=SF (2 ) 

DT (2 )* ( X( 2 )-X( 1 1 )*SQRT(Q/RL/(8S*(l.-ML*ML)+(l.-B$)/2.) ) 
RDT{2)=RL*DT<2)/(X(2)-X(1)) 

IF (ABS(BS-l.O) .LT.ZERO) DT(1)=DT(2) 

MT(l)=DT(l)/SF( l) 

C THE SLOPE AT THE ORIGIN. 

UX2=(U(2)-U(1))/(X(2)-X(1) ) 

C ' THE FORWARD SLOPE AT I(X)= 2. 

UX3=*(U(3)-U(2))/(X(3)-X(2) ) 

C TEST TO RESET IOP.EQ.5 FOR A RECOMPUTATION OF THE 

C F« (ETA) PROFILE* 

IF ( ( UX3*UX2 ) . EQ.0.0 ) GO TO 4211 

C A TEST TO SKIP THE RESET OF IOP TO 5. 

421 IF (2.*ABS((UX3-UX2)/( UX3+UX2) ) .LT. 0. 3) GO TO 422 
4211 I0P=5 

P=UX3/U ( 2 ) *OT (2 ) *RDT( 2 ) 

WRITE (6,77) I, X ( 2 ), IOP, UX2,UX3 

C RETURN TO EFN 140 TO RECOMPUTE THE F • ( ETA ) PROFILE. 

GO TO 140 

C SKIP RESET OF IOP= 5 

422 CONTINUE 

WRITE (6,78) I, X(2), X(l), DT(1), TF ( I ) 

C SKIP TO HERE FROM EFN-416 TF IOP.EQ.1,5. 

425 CONTINUE 

WRITE (6,97) I,IXF,IOP,RDTU ) 

C **** FOR LAMINAR FLOW, RESCALE P*, 0*, R*, QR* AND VP* 

P=P/RDT(I) 

Q=Q/RDT ( I ) 

RsR/RDTU ) 

QR=QR/RDT ( I ) 

VP=VP/RDT ( I ) 
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c SKIP FROM EFN-416 ON I 0 P.EQ. 2 , 3,6,7 TURBULENT FLOWS. 

430 CONTINUE 

«*** CALCULATE DTXM,MT, CF, HT AND ST FOR BOTH LAMINAR AND TURBULENT 

STARTING FLOW. 

DTXM=Q-P*( l.-M( I >*M( I ) > 

MTU )=DTII)/SF( I ) 

CF C I >=2.*TAU(1) 

B1=6PW ( I )-ITF(II-l. )/BH/TF( l I 
STI I > = 0.0 

IF I ABSIBU.GT.Z6RO> ST ( I > =STR(I > /B1 
DO 440 J=l, JE 
VHP! J)=l.-D( J>*( l.-FPl J > ) 

VHPP ( J >=GP(J>*( l.-FPI J> > 

440 CONTINUE 

CALL INTEG (JE. JD, V , VHP, 0.0, VHP) 

CALL INTEG (JE, JD, Y, VHPP, 0.0, VHPP) 

DTK( I)*VHP( JE)*OT(I ) 

RDTK=l./VE( l )*DTK( I >/DT(I > 

RMTW=ROTK/OTK( I > *MT ( I ) 

HT ( I >=VHPP( JE>*DT( I > 

IF ( I0P.NE.4) GO TO 445 
HT ( 1 ) =HT ( 2 ) 

NU=RL*PR*ST(2) 

WRITE (6,79) XII), NU, HT(2) 

445 CONTINUE 

LST 2= ISTom 
I STOt 7 )= I 

IF THE INITIAL I0P.EQ.4 I TFR MAY RESET I0P=5. 

IF < ISTOU).NE.O.ANO.IOP.GT.3 > GO TO 446 

IF” ( IS TO ( 5 ) .NE . 1. OR .POP »EQ. 1 > GO TO 450 

**** PRINT PROFILES AND PARAMETERS WITH $F ILE ♦*** 

46 WRITE (6,99) 

CALL FILE (LABEL, I, YY, F, FP, FPP, GP, GPP, 0, OP, 

1 VH, VHP, VHPP, TAU, VE, VEG, SHR, BH, PR, PRT , 

2 X, U, M, TURB, RW, VW, SW, CW , 

3 ROT, OT, MT, HT, SF, CF, ST, STR, ID, JE , JY , JO, JDI V, I STO,WSTO ) 

450 CONTINUE 

I STO ( 7 > = LST2 

IX* LAST I(X) WALL STATION TO BE COMPUTED. 

GO TO THE NEXT CASE IF THERE ARE NOT MORE THAN 2 
X-STATIONS ON AN INITIAL I0P=4, AND NOT MORE THAN 1 
X-ST AT ION ON AN INITIAL IOP* 1,2, 3, 5, 6, 7. 

IF (IX-I.LE.O) GO TO 481 

THE INITIAL LOAD FOR TRANSFER IN SUBRITSR TO FBB(J), 
ETC. IX IS COMPUTED IN SUBR COTR. 

DX*0.0 

DO 480 J-l, JY 
FB( J)*F( J) 

FPB( J)*FP( J) 

GPB( J) =GP( J ) 

DB( J)=D( J) 

480 CONTINUE 
RETURN 
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WRITE (6,69) 
1ST0U0I* 8 
CALL A6IR 

return 
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FORMAT 


I1H0» 40HEN0 THIS CASE IN SU8R ITFR ON IX.LE.I. 
34HGO TO SUBR INIR FOR THE NEXT CASE. ) 


TO FORMAT (1H0» 4X» 15HENTER SUBR ITFR* 5X, 

1 48HVALUES OF IMPORTANT VARIABLES FOR EACH ITERATION) 


71 FORMAT ( 1H0» 3HI* 13, 5X, 9HI$T0(10) S 13 / 

1X,7HF-EQ...,9X,2HJK,IX,3HJEF,5X,3HFJE,6X,4HFPPW, . 

6X, 2HSF, 9X , 1HP, 9X, 1HQ, 9X, lHRt 9X, 5HTF(I)f 7X»4HMU> / 
28X,5HVE(1)»4X,6HVEG(1 ) , 4X , 5HVH<1) , 6X» 6HVHP ( 1) ,4X».4HDU) »6X, 
5HD( JY),5X,5HDPm,7X,6HDP< JY> / 


1 

l 

1 

1 

1 

2 


IX, 7HG-EQ... , 12X, , 

3HJEG, 5X, 3HGPW » 6X, 4HGPPW, 6X, 1HC, 6X, 2HRL / IHO ) 


72 FORMAT (1HQ, 3HI = 13, 2X, 7HF-EQ..., 2(1X,I3), 8<1X,1PE9.2> ) 
76 FORMAT (IHO, 3HI* 13, 2X,7HG-EQ... t 2X, 13, 8<1X,2PE9.2! ) 

77 FORMAT I IHO/ 


1 

1 

2 

2 

3 

4 


1X,3HI= 13, 3X, 45HFREE STREAM VELOCITY DISTRIBUTION IS NOT WELL 
IX, 19HDESCR I BEO NEAR X = , F10.5, IX, 9HWITH IOP= 13, 2X, 
5HUX2- 1PE9.2, 2X, 5HUX3= E9.2 / 

54HI0P IS RESET TO 5, P IS RECOMPUTED AND THE PROFILE IS 
21HRECOMPUTED AS LISTED. / 1H2 ) 
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FORMAT I IHO, 6HI(X) = 13, 1H. / 

1 5X, 29HTHE FOLLOWING PROFILE AT 

1 60HIS A STARTING LAMINAR PROFILE, AND 

2 21HTO THE PROFILE AT X= F10.6/ 5X, 

3 7HTFI I )* E14.7) 


X = , F10.6, IX, 

IS TAKEN TO BE IDENTICAL 
10HWHERE DT= 1PE11.4, 5X 


79 FORMAT 
2 


(IHO, 28HTHE NUSSELT NUMBER AT X(l) 3 IPE9.2, 4H IS , 

1PE9.2, 5X, 24HTHE ENTHALPY THICKNESS 3 E9.2) 


97 FORMAT <1H0,6HMX>* I3,3X,5HIXF= I3,3X,5HI0P= 12, 3X 8HRDTC I ) = 
2 1PE14.7 ) 


98 FORMAT (IHO, 3HI= 13, 3X, 9HISTOUO) 3 13, 5X, 5HMAE 3 13 / LX) 

99 FORMAT (1HI) 


END 
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Subroutine ITSR 


$IBFTC ITSO 


SUBROUTINE ITSR 

SUBROUTINE ITSR IS THE MAIN SUBROUTINE FOR THE COMPUTATION DF THE 
MOMENTUM AND ENERGY PROF I LtS. TOGETHER WITH THE WALL PARAMETERS AT 
EACH I < X ) WALL STATION. ITSR INITIALIZES ISTOtlOJ* 3* ON EXIT 
FROM SUBR ITSR ISTO(IO) = ‘♦,5,6,7. ON A NORMAL END OF CASE AT 
I(X»* IX IST0U0J.EQ.4. SUBR ITSR EXITS TO TUF WHICH CALLS SUBR 
NDIR TO END THE CASE. IF ISTOllO) BECOMES 5 ON THE PROFILE 
LIMIT TEST THEN SUBR ITSR ENDS THE CASE BY EXITING TO TUF WHICH 
CALLS SUBR NDIR FOR THE CASE END LISTING. IF ISTO(IO) BECOMES 6 
SUBR ITSR EXITS TO TUF WHICH CALLS SUBR NDIR FOR A LISTING AND 
A RE-INITIALIZATION TO CONTINUE THE RUN, ANO A CALL OF SUBR ITFR 
IF ISTO(IA) .EQ.l FOR A TURBULENT RE-START AT HXI. 

IF ISTO(IO) BECOMES 7 SUBR ITSR EXITS TO TUF WHICH CALLS SUBR NDIR 
FOR A RE-INITIALIZATION AND THEN CALLS SUBR ITFR FOR A FORCED 
TURBULENT RE-START AT 1 € X > . 

SUBROUTINE ITSR IS CALLED BY THE MAIN ROUTINE TUF. 

SUBROUTINE ITSR CALLS SUBROUTINES VIS,PROFYL» INTEG, TRANS, FILE. 


C ********* MAIN COMMON V-3 TUF *************** 

COMMON /TUFA/ATUF, 

1 B( 300,5 ) , 

2 B1»BH,BS»BK» 

3 CWtlQOI ,CFt 100) ,CLIS<400),CAY<300)» 

4 CA,CA1*CO*COB»CMTF»CMTG»C,COAL»CMU» 

5 DB<300» ,088(300 ),D( 300) » DPI 300) ,DPB( 3001 , 

6 DT(IOD) ,DTKUOO>, 

7 DX,DTXM,OOP,DI,DJ,DXB,DTM,DT$» 

8 ET, 

9 FBI 300) , FBBI 300 ) , FPBB ( 300) , FPBI 300) , FP 1 300 ) »F( 300) 

A FPPI30D ),FPPB(300), 

1 FPE,FPPW,FT,FV, FTU2, 

2 GPB ( 300 ) , GP BB I 300 ) , GP I 300 ) , GPP ( 300 ) , C-PPB ( 300 ) , 

3 GBCt 100) »GPW< 10O) , 

A GPPW,GPE, GAM, GAMX , 

5 HT(100>, 

6 IST0U6), 

7 I»IC,IO»IBC»IOP,IX,IXE» IT, IXA,IO, IXF 
COMMON /TUF J/ JTUF, 

1 JTRUOO), 

2 JE, JK, JM, JY,JEF, JEG, JDIV, JEB, JD, 

3 KB, KMI , 

4 LABEL l 132), 

5 LOOP, LOOPF, 

6 M( 100 ) , MT 1 100 ) , 

7 MOP, MR, ML, 

8 NU, 

9 01, 

A P,PB,PM,PQP*PR f PRT, 

1 QB , QM, ORB , QRM, 0, 
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RWUOO) ,R0T(100), 

Re,RM*RC»RMS,RMT,R,ROTK,RXRDF*RL,RMTW,RDF,RX 
/TUFS/STUF, 

STRUOO > , SHI 100 ),SF( 100) ,ST( 100), 

SHR* STC » SK» STRX* 

TAUI 303 ) , 

TURB(100)*TF(100), 

TO* TOP* TFR, 

UI100), 

UX, 

VEI300) * VEG( 300 ) » VHI 300 ) » VHP ( 300) ,VHPP(300) » 

VHI 100) * 

VPB* VPM, 

WSTO( 20 >, 

X(IOO), 

XT* XK» 

YI300),YY( 300), 

ZERO 

KB, M,ML,MR,MT,NU 
INTEGER DOP * POP, TOP 

C ******** *enD OF MAIN COMMON TUF-V3* ************* 


ISTOUOM 3 
C 

C IX F IS SET® 1+1 IN SUBR ITFR AFTER THE TEST FOR 

C CONVERGENCE OF THE STARTING PROFILE. IXF*2 UNLESS 

C THE INITIAL IOP.EQ.A FOR WHICH IXF BECOMES 3. 

C IX IS SET IN SUBR COTR. 

DO 899 l=IXF* IX 

C A CONVENIENT STORE TO SAVE I FOR THE SUBR NDIR LIST. 

I XA*I 

C **** MOVE FP, GP, ANO D BACK TO MOVE FORWARD IN X **** 

00 510 J*l, JY 
FBB ( J ) ®FB ( J ) 

FBI J)*F( J) 

FPBBIJMFPBC J) 

FPBI J ) =FP( J ) 

FPPBl J)=FPP( J) 

GPBBI J )®GPB( J) 

GPBI J)=GP( J) 

GPPBI J ) =GPPI J,) 

DBBI J J ®DBI J ) 

DBI J 1=01 J) 

OPBI J ) =0P( J ) 

510 CONTINUE 

JEB=JE 

CAB=CA 

PB=P 

RB®R 

IB*I-1 

DXB=DX 

DX=X 1 1 I — X C IB) 

DT( I )=0T (IB I +DT XM*OX 
DTBB=DT(IB) 


2 

3 


COMMON 


REAL 
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IF (I8.GT.1) OT8B=OT(I-2) 

VPB=VW(IB)/U(IB ) 

IF ( I ABS( DOP ) . EQ. 1 ) VPB*VPB/08( 1 ) 

C TEST FOR LAST 1 1 X ) WALL STATION . 

IF ll.GE.IX) GO TO 520 

ux=u(i-n/um*(x( n-x< i+m/ixi i-n-xtm/m i-n-xu+m 

1 M 2 .*xm-x< i-ii-xi i +i i )/(X(n-xu-in/(x<t)-x<i+in 

2 ♦UIU1)/U(II*IXIII-X(I-1))/(X(I*1)-X(I-1H/IX(I + 1|-X(I)| 

RX*0.0 

CA1=0.0 

IF (ABSIRWC I)/DT( m.LT.O.U GO TO 520 

rx=rw< i— i )/ rwi i )*mn-x( i+m/ixi i-ii-xiin/ixii-n-xiiu) ) 

1 +<z.*x< i j-xi i-ii-xii+iu/ixj i i-xu-in/ixm-xn+m 

2 +rw( i+i >/rw< n*<xm-x(i-iM/{xci+n-xn-u )/(x< whiii > 

WSTO(18>= RX*RW(H 

WSTO( 19 ) = WSTO(18)*W$TO(18) 

IF ( WSTO(19).GE.1«0 ) GO TO 511 

CA1= 2.*0I*SQRT( l.-W$TO( 19) } / RWU> 

GO TO 520 

511 CA1= WST0I4) + WSTO(6)*X(I) + WST0C7»*X< I )*X< I ) 

RWX= 1. / RX 

WRITE (6,52) RX,RW<I),WST0(i8),CAl,RWX 

520 CONTINUE 

IF (POP.EQ.i) GO TO 530 

C LIST THE INPUT PARAMETERS FOR THE NEXT X-STATION. 

WRITE ( 6 « 5 1 ) LABEL! 1 ) » (LABEL ( X ) , K> 2,18 ) 

WRITE (6,60) I,XU),Um,MU), TURB(I), GBCCI), RW(I), 

1 VW< I ) , SWCI), CWU ) 

IF ( I$TO(5 ).NE.l ) GO TO 530 

WRITE (6,70) 

WRITE (6,81) 

530 CONTINUE 

C **** BEGINNING OF ITERATIVE LOOP TO CALCULATE FP AND GP PROFILES **** 
DO 799 MAE= 1»KMI 
I TMF= MAE 

C **** BEGINNING OF INNER LOOP TO CALCULATE THE F*(£TA) PROFILE. 

DO 670 MOM= 1, KMI 
I TP= MOM 

**** RECALCULATE DT , ROT, P, 0, AND R **** 

DT AND RDT ARE RECOMPUTED AFTER THE EXIT FROM THE 
MOMENTUM-ENERGY LOOP. 

OT ( I >=DT( I )*F ( J 6 ) 

RDT( I )=ROT( IB)*U( I )/U( IB)*DT{ I )/0T( IB) 

1 *(TF(I )/TF( 18 ))**( 1.5-1. /(SHR-l.J) 

2 *(1./TF( I )+STC/TO)/( l./TF( IB)+STC/TO) 

DTXM- (DTtl)-DTf IB) )/DX 
DTXB=( DT ( I )-OTBB>/ ( DX+DX8) 

P=OT(I)*UX 
PM=( P+PB)/2. 

QM=DTXM+PM*< 1.- (0.5*1 MI I)+M(IB) ) )**2) 

QB=DTXB+PB*( l.-M( IB)*M{ IB)) 

R=RX*DT ( I ) 

RM=(R+RB)/2. 

QRM= QM+RM 
QRB=QB+RB 
CA=CA1*DT( I ) 
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SCALE THE YIJI COORDINATES TO THE YYIJI COORDINATES 
FOR USE BY SU8R VIS. 

DO 605 J*l, JY 
CAYl J ) * C A*Y 4 J ) 

IF I CAY( J) .LT.-1.0 ) CAYIJ)* -1.0 

IF IAB$(RW(D/DT<I) I.LT.O.ll GO TO 605 
YY< JJ=2.*Y< J)/( l.+SQRTI 1.+ CAYI J J > ) 

605 CONTINUE 

FOR CONSTANT DENSITY FLOW MOP.LT.O. 

07 IF ( MOP.LT.O I GO TO 611 

COMPUTE THE DENSITY PROFILE- DIJ). COMPUTE ALSO THE 
DERIVATIVE TERM OF THE MOMENTUM EQUATION = DPI J I. 

SEE EQUAS l 1-27 AND 11-32. 

Bl=TF( 1 1-1. 

DO 610 J*l, JY 
FV=1.-FP( J) 

DI J I =2. *TF I I )*( l.-BH*GP< JD/I l.+SQRTI l.*4.*Bl*FV*FV*TF< II 
1 *(l.-8H*GP(J III) 

DPI J)=(2.*B1*D( J)*D(J)*FV*FPPf J)-TF(I )*BH*GPPI J) ) 

1 /(l.+2.*Bl*D( J>*FV*FV) 

610 CONTINUE 

ALSO SKIP TO HERE FROM EFN-607 

TO COMPUTE THE EFFECTIVE VISCOSITY AND CONDUCTIVITY 
PROFILES FOR THE MOMENTUM EQUATION. 

611 CONTINUE 

COMPUTE THE EFFECTIVE VISCOSITY AND CONDUCTIVITY 
PROFILES VE(J) AND VEGIJI FOR BOTH CONSTANT CENSITY 
AND COMPRESSIBLE FLOWS. 

CALL VIS (JE, JY, JO, YY, FP, FPP, GP, GPP, D, OP, TAU, VH,. VHP, 

1 TURBII), SW(I), CWII), SHR, BH, STC, TO, TFII), RDT ID, DTII), 

2 FIJYI, PR, PRT , JK, VE, VEG, ISTO ) 

C COMPUTE THE FP=F*CETAI EQUATION COEFFICIENT PROFILES 

C AND CALL SUBR PROFYL FOR THE FMETA) PROFILE. 

DTM* IDT ( I ) +DT 1 1 B ) ) /2. 

VPM*IVWI1J+VW( IBD/IUI D+UI IBD 
I F( IABSIDOPI.EQ* 1 J VPM=VPM*2./I D( 1 )+DB I II ) 

FPE*0.0 
FPPW=FPP( 1 1 
DO 650 J-l, JY 
FPMMFPI JKFPBI J D/2. 

OM=(D< Jl+DBfJII/2. 

DPM* (DPI JI+DPBI J) 1/2. 

DDXM»(D< JI-DBIJ D/DX 
DDXB- (DIJ) -DBBI J I l/IDX+DXB) 

C3*QRM*(Y( J l-IFI JDFBI J D/2. J-VPM-DTM*(FC JI-FBI JJ l/DX 
C1=CD*DM 

C2=C0*DPM-(PM*DM+DTM*DDXM)*‘(2.-FPM) 

C3*-CO*OPM+PM*I DM-1.)+DTM*DDXM 
CA=DM*(1.-FPM)*DTM/0X 

C38»QRB*I Y(J)-FB(JJ l-VPB-DTI I B I ♦! FI J 1-FB8I J D/f DX+OXB) 

CiB=COB*DB( J) 

C2B*C0B*DPB I J I- ( PB*OB ( J l+DTI I B)*ODXB )*( 2.-FPBI J I ) 
C3B=-C0B*DPBUDPB*(0B( J}-1. )+DT(IB)#DOXB 
C^B* do— FPBI J ) I *0B( J) *0T 1 1 B )/ 1 DX+OXB I 
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c 


THE FMETAJ EQUATION COEFFICIENT PROFILES. 
B( J,l)=C2-2.*C4+C4B 
B< J,2»=C1 

B( J»3)=2.*C3— C3B*(C1-C1B)*FPPB( J ) + < C2+2.*C4-C2B ) *FPB ( J > 
I -C4B*FPBB(J» 

Bt J.4)=-( l.+CAYl J) )*VE t J > 

B ( J, 5 ) = — DP (J)/D(J)*ll.-FP(J)) 

650 CONTINUE 


TO COMPUTE THE F* (ETA ) PROFILE FOR THE MOMENTUM 
EQUATION. 

CALL PROFYL (JEF» JY, JO, Y, B, ET, 1.0, FPPW, FPE , 2, 

1 FP, VH, VHP, VHPP) 

JE=MAX0( JEF, JEG) 

FPP ( J ) = THE F* META) OF THE MOMENTUM EQUATION. 
COMPUTE THE LOCAL SHEAR STRESS® TAU(J). 

JYM* JY— 1 
JM=1 

00 660 J=l, JYM 

GET THE F* * (ETA) PROFILE BY 1ST CENTRAL DIFFERENCES. 
FPP( J> = < FP< J+1)-FP( JM) 1/<Y( J+l)-Y( JM) ) 

JM=J 

COMPUTE TAU( J ) * LOCAL SHEAR STRESS PROFILE. 

TAU< J)=VE( J)*(DP( J)/0( J>*( l.-FP I J) )-FPP I J ) ) * SORT ( l.+CAYl J ) ) 

660 CONTINUE 

FPP{ JY)=0.0 
TAUI JY >=0.0 
VHt JY) =0.0 


COMPUTE F(ETA) OF THE MOMENTUM EQUATION. 

CALL INTEG (JE, JO, Y, FP, 0.0, F) 

IF ( IST0I5 ) .NE.l ) GO TO 661 

LIST INNER LOOP BOUNOARY VALUES ANO PARAMETERS. 

IF (POP.EQ.l) GO TO 661 

WRITE (6,82) JK, JEF, F(JEF), FPPtl), DT (1 ) , DTXM, PM, QM, RM 

TEST TO SKIP END OF CASE TEST. 

661 IF (TOP.EQ.l.ANO.I.LT.IX) GO TO 663 

TEST TO ENO CASE. 

IF (Ft JEFI.LT.O.O.OR.FI JEF ) . GT. WSTOI 2 > > GO TO 662 

GO TO 664 

END CASE. 

662 I STO< 10 ) = 5 

RETURN 

663 CONTINUE 

TEST TO EXIT FROM ITSR ON A LAMINAR SEPARATION. 

IF <F( JEF).GT.O.O.ANO.F( JEF ).LT.WSTO( 2) .AND.FPPt D.LT.O.O) 

2 GO TO 664 

ENTER SUBR I TFR FROM TUF FOR A TURBULENT RESTART 
IF I $T0( 14 ) . EQ. 1 • 

IC=I 

I STO( 10 )= 6 

RETURN 

664 CONTINUE 
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TEST F^tETAsO.Dt AND F(J=JE) FOR CONVERGENCE# BOTH 
MUST CONVERGE. 

IF { MOM . EQ« 1 I GO TO 670 

IF IABS(<FPP(1I— FPPW)/FPPW~).GT<aXT) GO TO 670 
IF IAB$(F( JE)-1. ) .LT.XT » GO TO 749 

END OF INNER LOOP TO COMPUTE THE MOMENTUM PROFILES. 

670 CONTINUE 


49 CONTINUE 

INDEX FOR TEST TO ENTER THE ENERGY EQUATION SECTION 
OF THE MAIN LOOP. 

IBC»IABSCMOP> 

TEST FOR ENTRY INTO THE ENERGY EQUATION SECTION. 

IF IBC.EQ.I ENTER THE MOMENTUM EQUATION LOOP ONLY 
ONCE FOR EACH I ( X > WALL STATION AND SKIP THE ENERGY 
PROFILE COMPUTATIONS. 

50 GO TO <600,751,752) , IBC 

751 CONTINUE 
GPW(I)=GBCm 
GPPW=GPP(1) 

GO TO 753 

752 CONTINUE 
GPWU)=GP(1) 

GPPW=-GBC( l)*D< n/VEGU) 

753 CONTINUE 


COMPUTE GUETAJ COEFFICIENT PROFILES. 

GPE=0.0 

DO 760 J*l» JY 

C7 = QRM* I Y I J ) -( F « J l*FB I J U / 2. I -OTM* ( F ( J ) -FBI J )) /DX-VPM 
CB=«1.-IFP( J)*FPB(J >>/'2.)*DTM/DX 

C7B“QRB'M Y< JJ-FBI J) >-VP8-DT< I B ) *( F I J J-FBB ( J ) >/<DX+DXB> 
CBB=Uo-FPB( J> )*DT( IB ) / ( DX+DXB 1 
Bl J»1)=-2.*C8+C8B 
B( J»2)=C7 

B< J,3>=<C7-C7B> *GPPBI J > +2.4C84GPBI J )-C8B#GPBB( J I 
B( J,4)=-(l.*CAYt J) )*VEG< J)/0< J) 

B ( J , 5 ) = — ( SHR-lo ) *M{ I)*M< I )/BH/TF< I ) * I VE ( J ) / VEG < J I-l . ) 

I *0( J JH*IDP( J>*< l.-FPI JIl-OI JI*FPP< J)) 

760 CONTINUE 


TO COMPUTE THE GMETA) PROFILE FOR THE ENERGY 
EQUATION. 

CALL PROPYL UEG, JY, JD, Y, B, ET, GPWU), GPPW, GPE , IBC,. 
1 GP, VH, VHP, VHPP) 

C GPP( J ) = THE G • 9 ( ETA ) OF THE ENERGY EQUATION. 

JE=MAX0( JEFjJEGI 
JM=1 

JYM= JY-1 
DO 765 J = lt> JVM 

GPPI J)=(GP< J+1I-GPI JM) I/IYIJ + D-YI JM» ) 

JM= J 

765 CONTINUE 

IF UBCoEQoi) GPP(1)*GPPW 

IF < l S TO 1 5 1 oNEol ) GO TO 766 
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LIST 6* ( 6T A=0.0 ) * G* * ( ETA=0.0 ) * ANO D(ETA=0.0>. 

IF THE FLUID PROPERTIES ARE CONSTANT, EXIT THE' MAIN 
LOOP AT THE CURRENT I(X) WALL STATION. 

IF ( POP. EQ. 1 ) GO TO 766 

WRITE (6,86) JEG, GP(l), GPP(i), D(l> 

**** IF FLOW HAS CONSTANT FLUID PROPERTIES, LEAVE LOOP **** 

IF ABS(MOP) .EQ. 1 THE ENERGY SECTION OF THE MOMENTUM-ENERGY LOOP 
IS BYPASSED. 

FOR MOP.GE.O LEAVE THE MOMENTUM- ENERGY LOOP ONLY IF THE SUCCESSIVE 
G* * ( ET A=C. 0 ) ARE INSIDE THE TOLERANCE CRITERIA. 

766 IF (MOP.LT.O) GO TO 800 

TEST GMETA=0.0) AND G*META*0.0) IN ORDER FOR 
CONVERGENCE ON CONSECUTIVE ITERATES OF THE MAIN 
LOOP AT HXJ. IF THE ENERGY PROFILES ARE CONVERGENT 
EXIT FROM THE MOMENTUM-ENERGY EQUATION LOOP FOR 
THE FINAL COMPUTATION OF THE STATION PARAMETERS. 

IF (MAE . EQ. I ) GO TO 799 
IF (A8S(GPW(t)).GT.Z£R0) GO TO 796 
IF (ABS(GP(I)-GPW(I )) .LT.ZERO) GO TO 797 
GO TO 799 

796 CONTINUE 

IF ( ABS( (GP( II-GPW( I) )/GP( 1) KGT.XT) GO TO 799 

797 CONTINUE 

IF (ABS(GPPW).GT.ZERO) GO TO 798 
IF (ABS(GPP(l)-GPPW >. LT.ZERO) GO TO 800 
GO TO 799 

798 CONTINUE 

IF ( ABS ( ( GPP ( 1)— GPPW) /GPPW ) .LT • XT ) GO TO 800 

ENO OF THE LOOP TO COMPUTE BOTH MOMENTUM AND ENERGY 
EQUATION PROFILES. 

799 CONTINUE 


C SEE EFN 750 FOR THE SKIP OF THE ENERGY EUIATION. 

800 CONTINUE 

**** COMPUTE SF, MT, HT , CF AND ST **** 

00 840 J*l, JE 
FV*1.-FP( J ) 

FOR OTK< I ) 

VH( J)=*l.-D( J)*FV 

FOR SF C I ) 

VHP( J)=FV*U.-0( J)*FV) 

FOR HT (I). 

VHPP(J)=GP( J)*FV 
840 CONTINUE 

SUM FOR DTK ( I ) . 

CALL INTEG (JE, JD, Y, VH, 0.0, VH> 

SUM FOR SF ( I ) . 

CALL INTEG (JE, JD, Y, VHP, 0.0, VHP) 

SUM FOR HT ( I ) . 

CALL INTEG (JE, JD, Y, VHPP, 0.0, VHPP) 

MT ( I ) , OT ( I ) , HT( I ) , RDT ( I ) , DTK ( 2 ) ARE LATER RESET AFTER 
COMPUTING COFI, C0F2»C0Gl »COG2 AND BEFORE TESTING 
TOP.FQ.l TO CALL SUBRS VIS ANO TRANS. 
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MODIFIED DISPLACEMENT THICKNESS FOR RMTW FOR SUBR TRANS. 
DTK(I)=VH< JE)*DTU ) 

SEE AUXILIARY RELATION DELTA!*) / THETA. 

SF C I )=1./VHP(JEJ 

MOMENTUM THICKNESS. 

MTCI ) = DT( I)/SF( I ) 

TOTAL ENTHALPY THICKNESS. 

HT(I )=VHPP(JE)*DT( I ) 

SKIN FRICTION COEFFICIENT. 

CFII )=2.*TAUtl) 

STANTON NUMBER BASED ON THE REFERENCE ENTHALPY. 

STR( I ) =-VEG( 1 )*GPP( 11/OUI 

FOR SUBR TRANS QUANTITIES. SEE RMTW, 

BL*GPW( I )-(TF( I)-l. l/BH/TFtl) 

STANTON NUMBER BASED ON FREE STREAM TO WALL ENTHALPY 
DIFFERENCE. 

STC I )=0.0 

IF (ABS(Bl). GT.ZERO) ST ( I ) =STR( I ) /Bl 

* * * COMPUTE THE INTEGRALS OF THE MOMENTUM AND ENERGY EQUATIONS. * 
SEE EQUA 11-21 FOR THE MOMENTUM EQUATION AND 
EQUA 11-23 FOR THE ENERGY EQUATION. 

HB= ( SF ( I ) +SF ( I B ) 1/2. 

COFl = ( U( I )/U( IB ) I **( 2.+HB ) *( TF( IB)/TFt !) ) ** (1. / < SHR-1. ) ) 

1 *MT ( I ) / MT C I B ) 

IF (RW( I8)/DT(IB).GT.0.1) COF1=COF i*RW( I ) /RW< IB I 
CDF2=EXP(DX*( (CFI IB)*CF( I ) >/2.*2.*VPM) 

1 / (MT 1 1BJ+MTC I ) ) ) 

COGl=l.O 

IF (ABS(HT( IB)) .GT.ZERO) COGl=U( I ) /U( IB) 

1 *(TF( IB)/TF( !))**( l./( SHR-1. ) )*HT( I )/HT( IB) 

IF (RW( I8)/DT(IB).GT.0.1) C0G1*C0G1*RW ( I ) /RW( 1 8 ) 

COG2=l .0 
B1=0.0 

B2=HT( I ) +HT (18) 

IF (ABS(B2). GT.ZERO) 81= ( STR( I )+STR( IB)+VPM*(GP(l)+GPB(l) ) )*0X/B2 
IF (ABS(B1).LT.88.0> C0G2=EXP(B1) 

CMTF=CMTF*C0F2/C0F1 
CMTG=CMTG*C0G2Z C0G1 

IF ( ISTOI & ) .NE.I ) GO TO 841 

CLIS(4*I-3)= C0F1 

CLIS(4*I-2)= C0F2 

CLI S (4*1-1 )“ C0G1 

CLI5 (4*1 )= C0G2 


IF 

i 

COFi.NE.O.O ) 

R21F- 

C0F2/C0FI 

IF 

( 

COF1.EQ.O.Q ) 

R21F= 

0.0 

IF 

t 

C0G1.NE.0.0 ) 

R21G= 

C0G2/C0G1 

IF 

( 

C0G1.EQ.0.0 ) 

R21G= 

0.0 


C * * * LIST THE RESULTS AS AN INDICATION OF ACCURACY. * * * 

IF ( POP. EQ. 1 ) GO TO 842 

WRITE (6,89) C0F1 ,C0F2, R2IF, C0G1 , C0G2 , R21G, I TP , WSTO< 18) ,XCF,SCF, 
2 I TME 

C **** RESET MT, DT, HT, AND ROT TO MATCH CF **** 

842 DTS=DT(I) 

MT ( I t-MT( I ) *C0F2/C0Fi 


C 

C 

C 

c 

c 

c 

c 

c 

c 
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DT ( I )*SF< I ) *MT ( I ) 

DTK( I )*OTK< I )*DT ( I ) /DTS 
ROT ( l)=RDTf I)/DTS*DT( I) 
HT C I ) *HT ( I ) *0T ( I>/DTS 

orxM=toTi i > -ore ib> )/dx 


IF (I.GE.IX) GO TO 880 

DT( 1*1 )=DT< I )+0TXM*(X ( 1+1 )-X(I) ) 

MT{I + 1)*DTU*1)/SF(I) 

880 CONTINUE 


C IF TOP.NE.l SKIP BOTH SUBR VIS AND SUBR TRANS. 

IF (TOP.NE.l) GO TO 89B 
RDTKB*RDTK 


C 

C 


TO COMPUTE THE EFFECTIVE VISCOSITY AND CONDUCTIVITY 
PROFILES VE ( J ) AND VEG(J) FOR SUBR TRANS. 

CALL VIS IJE, JY, JD, YY, FP, FPP, GP, GPP, D, OP, TAU, VH,. VHP, 

1 TURB Cl), SWm, CHII), SHR, BH, STC, TO, TFU), ROTII), DT(I» 

2 F( JY) , PR, PRT , JK, VE, VEG, ISTO ) 


, 


RDTK*1./VE(1)*0TK( 11/ DT C I I 
RMTWB=RMTW 

RMTW=RDTK/DTK( I )*MT(I ) 

FTE* FTU2/U(I)/U(n 


C 

C 


TO COMPUTE TURBtI+1) FOR SUBR VIS, AND IC, THE 
CRITICAL POINT. 

CALL TRANS <1, ID, JEF, JY, JD, Y, FP, FPP, GP, VH, VHP, VHPP, 

1 SFU), SHU), CW(I), STR(I), DTK! I ) , MT, TF 1 1) , M(I), BH, 

2 RDTK, RC, RMC, IC, KB, XK, FTE, DX, RMTW, RMTWB , U, TURB, 

3 RMT , TOP, ISTO, HSTO) 


IF 

( 

ISTO<5).EQ.O ) 

GO TO 

898 

RRCD* 

100. 



IF ( 
DRDC* 

RMTW. NE. 0.0 ) 
RDTK - RC 

RRCO* 

RMC/RMTW 

0RM1* 

RMTW- RMC 



DRM2 = 

100. 



IF ( 
RRFT* 

MTUJ.NE.O.O ) 
100. 

DRM2* 

RMTW*MT(IU)/MTII) 

IF 

( 

RMT. NE. 0.0 ) 

RRFT* RMC/RMT 


IF ( POP. EQ. 1 ) GO TO 898 

WRITE <6,96) RRCD.RRFT, RMC, RMTW, RMT, RC, RDTK, DRDC , DRMI , DRM2 
SKIP SUBRS VIS AND TRANS IF TOP.NE.l. 

898 CONTINUE 


TO LIST THE PROFILES NEAR THE ZERO SHEAR POINT RESET 
IS T0< 7 ). XCF , SCF ARE LISTED TOGETHER WITH COFI.ETC 
BY SUBR ITSR ON POP.NE.l. 

ISAV* I STO( 7 ) 

SCF= - ( CFU)-CF(I-l) ) f ( X(I)-XU-l) ) 

IF ( SCF. NE. 0.0 ) XCF* X(I) + CF(I) / SCF 

IXI* I + I$TO( 13 ) 

IF < XCF.GT »X( I X I ) ) GO TO 901 

IF { XCF.LT.X(I) ) GO TO 901 

I STO( 7 ) = I 
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C TO LIST THE MOMENTUM, ENERGY AND RELATED PROFILES* 

901 CALL FILE (LABEL, I, YY» F, FP, FPP, GP, GPP, 0, DP* 

1 VH* VHP, VHPP, TAU, VE, VEG, SHR, BH, PR, PRT , 

2 X, U, M, TURB, RW, VW, SW, CW, 

3 ROT, DT, MT, HT, SF, CF, ST, STR, ID, JE, JY, JD, JDIV, ISTO,HSTO ) 

I STO( 7 ) - I SAY 

IT IS RESET* IT + 1 IN SUBR COTR IF TURBII). GT.WST0I13) 
IN SUBR COTR AFTER EXITING FROM THE i(X) STATION 
READING LOOP. SUBR NDIR SETS ALL SUCCEEDING 
TURBID = l. IN TE RE-INITIALIZATION SECTION. 

911 IF ( I.NE.IT I GO TO 899 

ISTOIIO)* 7 
RETURN 

C RETURN TO THE HEAD OF THE I IX) LOOP. 

899 CONTINUE 

C *** END FORWARD MOTION ON X. 


C SUBR ITSR HAS REACHED A NORMAL END OF THE CASE. 

912 I STO( 10 ) = A 

RETURN 


51 

FORMAT 

< A4,5X, 

20HINPUT 

VARIABLES FOR ,17A4 ) 

52 

FORMAT 

2 

I 1H0 , 
7HRWII) 

17HLIMIT 
= El A. 7, 

ON RX*RWID , 2X, 3HR X= 1PE1A.7,2X, 

2X, iOHWSTOt 18)= E IA.7, 2X, AHCA1* E1A.7, 


3 2X» 4HRWX* El A® 7 ) 

60 FORMAT <1HD» 6HI(X)= 13, 2X, 2HX* 1PE9.2, IX, 

1 3 HU = » E9.2, IX, 3HM = » E9.2, IX, 6HTURB =, 0PF5.2, IX, 

2 5HGBC =» 1PE9.2, IX, AHRW =, £9.2, IX, AHVW =, E9.2, 

3 IX, AHSW *, £9.2, IX, AHCW =, E9.2) 

70 FORMAT UHO, AOX, 

1 A8HVALUES OF IMPORTANT VARIABLES FOR EACH ITERATION) 

81 FORMAT I 1H0® 1HF, 2X, 2HJK, IX, 3HJEF, 5X , 3HFJE, 6X, AHFPPW, 6X , 

1 2HDT, 7 X, AHDTXM, 7X, 2HPM, 8X, 2HQM, 8X, 2HRM/ 

2 IX, 1HG, 5X, 3HJEG, 5X» 3HGPW, 6X, AHGPPW, 6X, 2HDW/ 1H0) 

82 FORMAT IIH0,1HF, 2I1X, 13), 7I1X, 1PE9.2)) 

86 FORMAT (IX, 1HG® 5X , 13, 3I1X, 1PE9.2)) 

89 FORMAT C 1H0 , 15X , A2HI NTEGRALS OF MOMENTUM AND ENERGY EQUATIONS 

1 /18X, 8HM0MENTUM, A5X, 6HENERGY/ 

2 13X, F7.A, AH = F7.A, 5X, 5HR21F= F8.A, 10X F7.A, AH = 

3 F7 . A, 5X, 5HR21G* FB. A, 10X, SHI TP= 13 / A5X, 

4 XOHWSTOl 18)= 1PE1A.T, 3X,5HXCF* El A. 7, 3X, 5HSCF* E1A.7 , 

5 5X, 6HI T ME= 13 ) 


89 



\J\ 1>> l\> 


96 FORMAT <IH0. 25HTRANSITION STATISTICS... 6HRRCD® 1PE9.2, 3X # 

6HRRFT ~ E9.2 f 4X, 5HRMC= E9.2t 3X, 6HRMTW* E9.2, 3X. 

5HRMT= E9.2, 3X, 4HRC = E9.2 / 

26X, 6HRDTK- E9.2» 3X, 6HDR0C= E9.2* 3X, 6HDRM1* 
E9.2, 3X t 6HDRM2* E9.2 ) 


98 FORMAT (IHO) 
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Subroutine TRANS 


AIBFTC CTRAN 


SUBROUTINE TRANS (I, ID, JEF, 

1 VH, VHP, VHPP, SF, SW» CW, 

2 RDTK , RC, RMC , IC, KB, XK, 

3 RMT , TOP, ISTO.WSTO ) 


JY, JD, Y, FP, FPP, GP, 

STR, DTK, MT, TF, M, 8H, 

FT, DX, RMTW, RMTWB* U, TURB, 


SUBROUTINE TRANS COMPUTES THE CRITICAL X-STATION INDEX I(X)=IC 
FOR THE CHANGE FROM LAMINAR TO TURBULENT FLOW, AND THE TURBULENCE 
OR INTERMITTENCY FACTOR TURBII+1) USED BY SUBR VIS TO COMPUTE 
THE VISCOSITY AND CONDUCTIVITY PROFILES. 

SUBROUTINE TRANS IS CALLED BY SUBROUTINE ITSR IF TOP.EQ.I. 
SUBROUTINE TRANS CALLS THE FUNCTION SURBOUTINE ...INDEX. 


COMMENT... 

TRANSITION MAY BE EITHER CALCULATED OR SPECIFIED. TRANSITION IS 
SPECIFIED BY CHANGING TURBID I THE INTERMITTENCY FACTOR) FROM 
3.D TO 1.0 EITHER GRADUALLY OR ABRUPTLY DEPENDING ON THE SIZE 
OF THE TRANSITION REGION. 

SUBR TRANS FINDS THE TRANSITION ZONE BY COMPUTING AND TESTING THE 
CRITICAL REYNOLDS NUMBER RC. 

SUBR TRANS MAY RECOMPUTE THE EFFECTIVE INTERMITTENCY FACTOR 
TURRII+1J AFTER COMPUTING AND TESTING THE TRANSITIONAL REYNOLDS 
NUMBERS. THE CRITICAL REYNOLDS NUMBER IS COMPUTED AT ALL 
I.LE.IC WHERE IC IS INITIALIZED = IX+1 BY SUBR INIR AND WHERE 
IX IS THE LAST X STATION TO BE COMPUTED. 

IF TOP.EQ.I SUBR COTR RESETS TURBU)=0.0 BEFORE THE. OATA LIST. 

IF 10P.EQ.7 SUBR COTR RESETS TURBI I > = 1. BEFORE THE DATA LIST. 


SUBR TRANS CALLS FUNCTION INDEX! Z, S,NDIM, MIN, MAX, IGUESS ) 

TO FIND THE INDEX OR POSITION OF A VALUE OF A FUNCTION S IN ONE OF 
THE DATA TABLES IN SUBR TRANS WHEN THE VALUE OF THE . $ SOUGHT IS 
THE LEAST VALUE OF S THAT EXCEEDS A GIVEN VALUE Z OF ANOTHER 
FUNCTION. 

SUBR TRANS CONTAINS THE SETS OF CURVE DATA... 

(l)-SFF ON RCH. ( 2 1-SWF ON RSF , !3)-KF ON RDF,. 

(A)-FTF ON RTF, (5)-CWF ON RRF. 

THE INDEX FROM FUNCTION I NDEX ( Z , S, NDI M,M IN, MAX, IGUESS) IS EITHER 

(1 ) ~KH(SF»SFF(RCH) ) FOR SF VS SFF(RCH), 

( 2 ) -KS (SWR, SWF! RSF ) ) FOR SWR VS SWF(RSF), 

<3 >-KK(KB,KF(RDF ) ) FOR KB VS KF {ROF ) , 

(A )-KFT( FT,FTF(RTF ) ) FOR FT VS FTF(RTF), 

( 5 ) -KR (CWR » CWF ( RRF ) ) FOR CWR VS CWF(RRF). 

THE INDEX KH( SF » SFF ) , KS!SWR»SWF), KK! KB,KF ) , KFT (FT »FTF ) , 

KR ( CWR , CWF ) IS THE INTEGER OF THE PLACE IN THE TABLE OF SFF, SWF, 
KF, FTF,CWF SUCH THAT SF , SWR, KB, FT, CWR IS JUST .LT. SFF (RCH ) , 
SWF!RSF)»KF(ROF j , FTF! RTF > ,CWFt RRF ) . 


DIMENSION IST0(16), WST0(20) 
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c 


SUBR INIR SETS JD= 100. 

DIMENSION Y ( JD) , FP(JO), FPPtJOU GP(JO) 

DIMENSION VH I JD > » VHPUD), VHPPIJD) 

DIMENSION MT ( ID ) » UUD), TURB (ID) 

C FOR SUBR TRANS ONLY. 

DIMENSION SFFC15I, RCH( 15 1 » SWF(9>, RSFI9) 

DIMENSION KF<15>, RDF I 15) , FTF(14>, RTFC14), CWF<4), RRF (4) 

REAL M, MT, KB, KF 
DATA ZERO/ l.OE-LO/ 

DATA IH, IS, IK, IT, IR/ 15, 9, 15, 14, 4/ 

DATA CURVE. .SHAPE FACTOR ISFF) VERSUS CRITICAL 
REYNOLDS NUMBER IRCH),- AN EXTENSION OF FIG. 17.19 
OF SCHLICHTING. 

TABLE OF CURVE DATA SET NO. 1. 

DATA SFF/2.0, Z.l, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3.0, 
l 3.2, 3.4, 3.6, 5.0/ 

DATA RCH/42000.0, 20000.0, 15000.0, 7000.0, 3150.0, 1000.0,. 425.0, 
1 2DD.0, 145.0, 115.0, 90.0, 70.0, 60.0, 45.0, 10.0/ 

DATA CURVE.. .SURFACE ROUGHNESS , SWF, VERSUS 
TRANSITION • REYNOLDS NUMBER, RSF,- OBTAINED BY USING 
FIG. 17.38 OF SCHLICHTING. 

TABLE OF CURVE OATA SET NO. 2. 


DATA SWF/O. 0, 120.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 

1 1000 . 0 / 

DATA RSF/1.0, 1.0, 0.955, 0.695, 0.418, 0.216, 0.060, 0.0, 0.0/ 

DATA CURVE. ..PRESSURE GRADIENT PARAMETER, KF, VERSUS 
RDF FROM FIG - . 17.9 OF SCHLICHTING. 
TABLE OF CURVE DATA SET NO. 3. 

DATA KF/— l .0, -0.04, -0.03, -0.02, -0.015, -0.01, -0.005, 0.0, 

1 0.005, 0.01, 0.015, 0.02, 0.025, 0.04, 1.0/ 

DATA R0F/400.0, 440.0, 450.0, 500.0, 540.0, 600.0, 700.0, 820.0, 
1 1000.0, 1200.0, 1420.0, 1720.0, 2060.0, 3200.0, 64000.0/ 

OATA CURVE.. .FREE STREAM TURBUL FNCE , FTF , VERSUS 
REYNOLDS NUMBER, TRANS-CR1 TICAL , RTF FROM FIG. 16.21 
OF SCHLICHTING. 

TABLE OF CURVE OATA SET NO. 4. 


DATA FTF / 

0.0, 0 

.003, 0 

*006, 0 

.0084, 0.012, 0.021, 0.0296, 

0.036, 

1 0.048, 

0 0 060 , 

0.072, 

0.084, 

0.100, 1.000/ 


DATA RTF/ 

1.130, 

1.130, 

0.865, 

0.740, 0.662, 0.495, 0.370, 

0.291, 

I 0.148, 

0.071 , 

0.032, 

0.018, 

0.0, 0.0/ 



DATA CURVE. ..SURFACE CURVATURE, CWF, VERSUS TRANSITION 
REYNOLDS NUMBER, RRF, FROM FIG. 17.33 OF SCHLICHTING. 
TABLE OF CURVE OATA SET NO. 5. 

DATA CWF/0,0002, 0.00008, 0.0, -0.00008/ 
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DATA RRF/ 1.04, 1.04, 1.0, 0,81/ 


C 


SUCCEEDING X-STATION NUMBER® 

ip=m 
KS= 1 
KR= 1 
KH= 1 
KK = 1 

KFT= l 
CMR= I®0E-19 
RTR= 1.0E-19 
RD= 1. OE—19 


C COMPUTE THE EFFECT OF SURFACE ROUGHNESS. 

SHR=SW*RDTK/DTK 

C INITIALIZE A MULTIPLIER OF RC=CRITICAL REYNOLDS MO. 

RSR*1.0 

IF I SWR.LT.0.01 > GO TO 150 

C FOR SWFIRSF} TABLE OF CURVE DATA. 

KS=IND£X <SWR» SWF, IS, i, IS, IS/2) 

RSR= A FUNCTION CHARACTERISTIC OF ROUGHNESS ELEMENTS 
DIVIDEO BY THE DISPLACEMENT THICKNESS. 

RSR= ( RSF 5 KS I-RSFIKS-I ) ) t ( SWFI KS ) -SWF < KS-1 > i * < SWR-SWF i KS-1 H 
1 +RSFIKS-1) 


150 CONTINUE 
RRR=loO 


COMPUTE THE EFFECT OF SURFACE CURVATURE. 

INITIALIZE A MULTIPLIER OF RC=CRITICAL REYNOLDS NO. 


IF < ABSICW&.LT.ZERO) GO TO 170 
CWR=MT(n/CW 

IF I CWR.GTo -Oo 00008 ) GO TO 160 
RRR=0.73/SQRT C ABS ( CWR ) ) 

GO TO 161 

RRR* MOMENTUM THICKNESS / RADIUS OF CURVATURE. 

160 CONTINUE 

FOR CWF(RRF) TABLE OF CURVE DATA. 

KR=INDEX < CWR, CWF, IR, 1, IR, IR/2) 

RRR= (RRF(KRJ-RRF(KR-1 ) ) / ( CWF( KR >-CWF ( KR-1 ) J * ( CWR-CHF 4 KR-1 J i 
1 +RRF(KR-1> 


161 CONTINUE 
170 CONTINUE 

RC IS NOT RECOMPUTED AFTER l.GE.IC. IC*IX*1 IN INIR. 
171 IF (I.GEoICI GO TO 600 

IF l ABS I STR ) «GT . ZERO) GO TO 300 

COMPUTE THE EFFECT OF THE PRESSURE GRADIENT 
PARAMETER ON THE CRITICAL REYNOLDS NUMBER. 

RC= THE CRITICAL REYNOLOS NUMBER- A FUNCTION OF THE 
SHAPE FACTOR. 

FOR SFF(RCH) TABLE OF CURVE DATA. 
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KH=i NDEX l$? 9 SFF, IH„ 1 9 IH P IH/28 

RC=<RCHlKm-RCHdKH-18 9/ « SFFdKH 8-SFF l KH-1 8 9*« SF-SFF { KH-1 8 } 

1 -8-RCH4KH-U 

GO TO 500 

300 CONTINUE 

COMPUTE THE HEAT TRANSFER EFFECT ON THE CRITICAL 
REYNOLDS NUMBER RCo 1 METHOD TAKEN FROM LEES8® 

JC»l 

JCP=1 

VHPPdl }=0o0 

TTFW=d lo”BH*GP{ Jli 9*TF-{ U-FPd 18 8#! U-FP t 1 8 { Of TF-lo 8 
TTF=YTFW 

TTFP-! lo-BHSGPd 2 8 )$TF-{ 1 o-FP 4 2 8 }*S lo-FP d 2 8 8 TF-lo 8 

IF «ABSdTTFH8oLTolcE“208 GO TO 351 
JEM=J£F-1 

DO 350 J=2 o JEM 
T¥FB=TTF 
TTF=TTFP 
YF=ILo-FPU8 
VFP=lo~FP(I J^IJ 

TYFP= t io=BHO{jPd j*i 8 89TF~VFP*VFPO{ TF-lo 8 

E F i A8S{FPPU8aVF#TTFPSTTFB’5TTFfc!8c,LToioE=20} GO TO 349 

VHC J8*3ol4159PVF/TTFHPFPPnL8 

1 OtTTFOTTF/FPPd J9*03o« FPP1 J+l r/TTFP-FPP( J-D/TTFB) 

2 /dYJJ-PlJ-VU-im 

tfHP« J8=*-!FPP« IJPVd JJ/VF-lo 
VHPP|J9 = i! lo“2oPVHP( J8 JPVHt J8 

SF «VHPPU)oGToO®58 8 GO TO 351 
JC*J-H 

349 CONTINUE 

350 CONTINUE 

351 CONTENUE 

VFC=llo-IFP( JC-1 8 8-M FPt jC-U-FPt JCJ 8/1 VHPP { JC l - VHP PI JC-1 8 8 
1 o|Do58-VHPPt JC-1 8) 

GPC=GPt JC-1 8*1 GP( JC8-GPI JC~i 8 9 / < VHPPt JC 8-VHPPOC-iJ 8 
1 *CDo58-VHPP(! JC-1 9 9 

THE CRITICAL REYNOLDS NUMBER 8EFORE INCLUDING 
SURFACE ROUGHNESS AND SURFACE CURVATURE EFFECTSo 

RC=-25 o 0*FPPUJP4 ( l 0 -BH*GPC JPTF-VFCPVFC^iTF-le ! JO^IoTB 
1 /VFC«04/SQRT ( lo-VFC 8*U„-VFC 9 8 

RC= CRITICAL REYNOLDS NUMBER “FUNCTION OF STANTON NO* 
RMC=CR ST ICAL REYNOLDS NUMBER FRCM MOMENTUM THICKNESSo 
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500 CONTINUE 

C INCLUDE THE SURFACE ROUGHNESS AND CURVATURE EFFECTS* 

L RC=RC*RSR»RRR 
RMC=RC/0TK*MT(I ) 

RDTK= LOCAL REYNOLDS NUMBER FROM MOMENTUM THICKNESS. 
RC= CRITICAL REYNOLDS NUMBER FROM DISPLACEMTNT 
THICKNESS. 

IF TRUE THEN TURBU + U REMAINS AS SET IN SUBR COTR. 

IF I RDTK.LT *RC) GO TO 999 

RESET I C= I TO SKIP THE RECOMPUTATION OF RC AT 
SUCCEEDING X STATIONS. SEE EFN 171. 

IC=I 

EFFECT OF PRESSURE GRADIENT PARAMETER ON 
TRANS-CRITICAL REYNOLDS NUMBER. 

600 CONTINUE 

DKMRMTW+RMTWB) /2.*<MT! I ) +MT I 1-1 ) ) / ( U(I) +U( I -1 ) ) 

i *(um-uu-in/ox 

KB= I KB#XK+0K*DX ) / ( X K*DX ) 

FOR KF(RDF) TABLE OF CURVE DATA. 

KK-I NDEX (KB, KF, IK, 1, IK, IK/2J 

RD= REYNOLDS NUMBER = FUNCTION OF PRESSURE GRADIENT 
PARAMETER. 

RD=( RDF (KK) -RDF ( KK-1 )) / ( KF ( KK ) -KF { KK-1 >> + ( KB-KF < KK-l )) +R0F ( KK-1 > 

COMPUTE THE EFFECT OF THE FREE STREAM TURBULENCE. 

FOR FTFIRTF) TABLE OF CURVE DATA. 

KFT “INDEX (FT, FTF, IT, 1, IT, IT/2) 

RTR= TRANSITIONAL REYNOLDS NUMBER=FUNC TI ON OF FREE 
STREAM TURBULENCE. 

RTRMRTFlKFT)-RTF(KFT-l) )/ ( FTF ( KFT ) -F'TF ( KFT- 1 >>*( FT-FTF < KFT-l ) ) 

1 *RTF(KFT-1> 

CORRECTED VALUE OF RD. 

RO=RD*RTR*RRR*RSR 

RMT=RMC+RD 

RMTW= LOCAL REYNOLDS NUMBER FROM THE MOMENTUM 
THICKNESS. RMTH IS COMPUTED IN SUBR I TSR AFTER 
TESTING FOR TOP.EQ.l AND JUST BEFORE CALLING TRANS. 
RMTWF=RMTW/MT< I )*MT( 1+1 ) 

RMC= CRITICAL REYNOLDS NUMBER FROM THE MOMENTUM 
THICKNESS. 

IF RMTH.GE.RMC.AND.RMTWF.LE.RMT THEN COMPUTE AN INTER 
MEDIATE VALUE Of TURB( 1+1 ) .GT.0.0 AND .LE.l. 

IF RMTW.GE.RMC. AND.RMTWF.GT.RMT SET THE REMAINING 
TURB< 1+1 1*1. , AND RESET TOP=0 TO SKIP SUBR TRANS 
FOR THE REMAINING I(X) STATIONS OF THE CASE. 

NOTE THAT RMT.GT.RMC BY RO AND RMTWF. GT. RMTW. 

IF ( RMTW.LT.RMC ) GO TO 999 

RMTWF= LOCAL REYNOLDS NUMBER FROM THE MOMENTUM 
THICKNESS. 


95 



C RMT = TRANSITION REYNOLDS NUMBER FROM THE i MOMENTUM 

C THICKNESS. 

C IF TRUE THEN THE SUCCEEDING TURBtUlt* l. 

IF I RMTWFoGTcRMT J GO TO 700 
XI=2o*« RMTWF-RMO/R0 

C TURB (11= INTERMITTENCY FACTOR COMPUTED BY THE 

C METHOD OF DHAWAN AND NARASIMHA. TURB4I + U IS USED BY 

C SJBR VIS. 

TURB«KHI = Io-EKP<-Q.412aXI«ua } 

GO TO 999 

700 CONTINUE 
T0P=0 

C TURBUI) IS USED BY SUBR VIS. 

00 701 II=IP 9 ID 
TURBI 1 1 3 = 1.0 

701 CONTINUE 


999 IF ( ISTO«5IoEQoO t RETURN 

WRITE C6,998 3 I , I C„ 

2 RSR^RRRsRMCoRDpRMT^FTjRTRcTURBI IPD 


RETURN 


{ 1HQ, 44HTRANSinONAl STATISTICS LISTED BY TRANS... 

SHI ( X I = 13, 5X, ^HIC= 13 / 

IK , 5HRSR- E10o3o2K,5HRRR= E10. 3 ,2X, 5HRMC = E10.3,2X 
4HRD= E10o3,2X,5HRMT= E10 o392X 0 «HFT= E 10. 3, 2X,.5HRTR= 
E10.3 / IX, UHTURBI 1*1)* E10.3 3 


END 


998 FORMAT 
2 

3 

5 
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Subroutine INDEX 


FUNCTION INDEX! Z 0 S»NDIMs MIN, MAX® IGUESS) 

C FUNCTION SUBROUTINE INDEX IS CALLED BY SUBROUTINE TRANS 

C COMMENT o o o 

C THE OBJECTIVE OF THE SUBROUTINE FUNCTION INDEX IS TO FIND THE 

C INOEX OR POSITION OF A VALUE OF A FUNCTION S IN A OATA TABLE WHERE 

C S= SIR) AND SU)= SCFN(K)) WHEN THE VALUE OF THE $ SOUGHT IS THE 

C LEAST VALUE OF S THAT EXCEEDS A GIVEN VALUE l OF ANOTHER FUNCTION 

C SUPPLIED BY SUBROUTINE TRANS® 

C SUBR TRANS CONTAINS A SET OF TABLES FOR SOU VS FNUOo 

C THE PORTION OF THE TABLE OF S TO BE USEO LIES BETWEEN THE INDICES 

C MIN AND MAX WHICH MARK A PORTION OF THE FUNCTION S THAT IS 

C MONOTONIC INCREASING WITH S< MAX > 0 GT®S ( MIN ) ® 

C THE VALUE OF MIN MUST BE SUCH THAT AT LEAST THERE EXISTS AM S AT 

C MIN<-i« 

C A GUESSED TABLE OR ARRAY INDEX OF THE FUNCTION S REQUIRED TO 

C SATISFY THE OBJECTIVE OF THE ROUTINE IS GIVEN AS IGUESS® 

C IF NO S EXCEEDS Z THEN MAX WILL BE GIVEN BY FUNCTION ROUTIWE 

C INDEX AS THE CORRECT INDEX® 

C IF SIMINo-l) EXCEEDS l THEN MIN-o-1 HILL BE GIVEN BY THE FUNCTION 

C ROUTINE INDEX AS THE CORRECT INOEX ALTHO S(MIN) COULD BE ®GToZ AND 

C YET NOT BE GIVEN BY FUNCTION INOEX AS THE CORRECT INDEX® 

C NOIM IS NOT USED IN THIS OECK® 


DIMENSION SI 82 J 


I =IGUESS 


IF t$!MIN*l»-Z> 2v Is 
1 CONTINUE 


GO TO 6 

2 CONTINUE 

IF ISIMAXI-Z) 3 o 3s 

3 CONTINUE 
I =MAX 

GO TO 6 

4 CONTINUE 

IF «S<I l-Z) 5s 6, 7 

5 CONTINUE 


1 * 101 . 

IF (Sm-Z) 5s 6, 6 
7 CONTINUE 


1 * 1-1 

IF IS! I I-Z ) 8„ 6 b 7 
8 CONTINUE 
I *£ ■> 1 


l 


6 CONTINUE 
IMDEX=I 

RETURN 

END 
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Subroutine NDIR 


SIBFTC MOID 


SUBROUTINE NOIR 


C SUBROUTINE NDIR LISTS THE SUMMARY OF THE PRINCIPAL BOUNDARY 

C LAYER PARAMETERS AT THE CASE END. SUBROUTINE NOIR ALSO TESTS 

C IST0(10).EQ.4,5,6,7,SET BY SUBR ITSR, TO DETERMINE WHETHER THE 

C CASE IS TO BE ENOED OR THE NECESSARY QUANTITIES ARE TO BE 

C RE-INITIALIZED FOR A POSSIBLE RESTART AT I(X)s IC BY SUBR I TFR 

C ON A CALL BY THE MAIN ROUTINE TUF. 

C SUBROUTINE NDIR IS CALLED BY THE MAIN ROUTINE TUF. 

C SUBROUTINE NOIR CALLS SUBROUTINES F ILErVI S» A6IR. 


C ********* MAIN COMMON V-3 TUF *************** 

COMMON /TUFA/ATUF, 

1 6(300.51, 

Z Bl.BH.BS.BK, 

3 CW(IOO) ,CF( 100) ,CLIS<400),CAY<300), 

4 CA.CAl.CO, COB, CMTF.CMTG.C, COAL, CMU, 

5 08(300) ,DBBI30D),D( 300 ) , DP ( 300) »DPB(300), 

6 OT ( 100 ) , OTK ( LOO ) , 

7 DX.DTXM.OOP.OI , OJ , DXB, DTM, DTS , 

8 ET, 

9 FB( 300) ,FBB(300),FPBB(300)»FPB( 300 ) , FP ( 300 ) ,F(300>». 

A FPP(300)»FPPB(300)» 

1 FPE.FPPW, FT ,FV» FTU2, 

2 GPB(300) ,GPBB(300),GP(300) ,GPP( 300) ,GPPB(300) , 

3 GBC(100),GPW(100), 

4 GPPW.GPE, GAM, GAMX, 

5 HT(IOO), 

6 ISTO(lb), 

7 I,IC,IO,IBC,(OP,IX,tXE,IT,IXA,ID,IXF 
COMMON /TUFJZ JTUF, 

1 JTR(IOO), 

2 JE, JK, JM, JY.JEF, JEG, JOI V, JE8, JO, 

3 KB, KMI , 

4 LABEL (132), 

5 LOOP, LOOPF, 

6 M( 100), MT( 100) , 

7 MOP, MR, ML, 

8 NU, 

9 01, 

A P,PB,PM,POP,PR,PRT, 

1 QB, QM,QRB,QRM, Q, 

2 RW( 100) ,RDT (100 ), 

3 RB, RM, RC ,RMS, RMT,R, RDTK, RXROF.RL , RMTW,RDF,RX 
COMMON /TUFS/STUF, 

1 STR(IOO) ,SW(100),SF(100),ST(100>, 

2 SHR,STC,SK,STRX, 

3 T AU ( 300 ) , 

4 TURB(100),TF(100i, 

5 TO, TOP, TFR, 
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6 U(100J 9 

7 UJt o 

8 VE ( 300 > p VEG( 300 Ip VH{ 300 ) pVHP4 300 ) »VHPP ( 300 J 9 

9 VWQOQtp 

A VPBpVPMp 

1 WSTOfl 20 ) p 

2 XUOOJp 

3 XTpXKp 

* Y { 300 5 p YY ( 300 ) s 

5 ZERO 

REAL KSs MpMLpMRpMTpNU 

INTEGER OOP 9 POP 9 TOP 

c M O « S O M «END OF MAIM COMMON TUF-V3* sssafcaossistcto $ 


C 


SEE FORMATS 93 ff 94>p 95« 96o 
IF ( I ST04 10 3 o EQo 5 » GO TO 901 

IF 1 I STOJ 1 0 ) o EQo 6 ) GO TO 920 

IF ( I STO( 10 t o£0o7 i GO TO 921 

GO TO 905 


C CALI SUBR PROFILE FOR A LIST IF THE PROFILE OF FIETAJ 

C GOES OUT OF BOUMDSo 

901 CONTINUE 

WRITE I6 0 95J 
WRITE 1 6p99 J 


CALL FILE i LABEL p 

Id YYp Fp FPp 

FPPp 

GPp 

GPPp 

D p DP p 

VHp VHP, VHP P 9 

TAUp VE P VEGp 

SHR p 

BHp 

PR 9 

PRT 0 

Xp Up M s TURBp 

RWp VWp SWp'CW 

9 




ROT 0 OTp MT 9 HT 

0 SFo CF 9 STp 

$TR V 

ID S 

JEp 

JYsJDpJOIVpISTOpWSTO) 


C AL SO 9 IF ISTOll^JoWEoloANOo I STO( 10P D EQo6 RETURN TO 

C HERE BY WAY OF EFN 920p936 TO ENO THE CASEo 

905 CONTINUE 


C 00*0 print our SUMMARY OF PRINCIPAL BOUNDARY LAYER PARAMETERS fcooa 
LP= 60 

DO 910 I*l„ KXA 

IF I LP0GE06O I GO TO 906 

GO TO 907 

906 WRITE I6»993 

WRITE { 6 o 90 Ei (LABEL ( K ) 9 K=2olBP 
WRITE (6p9U 
LP« 8 

907 IF ( WSTO( 10 JoNEoOqO J »(!>■ XII)/WST0(10f 

WRITE (6 0 92D XU>p DTCII, MT|1)» HTU»* SFHK CFUJo STIIS* 

1 GPWHIp RDTIItp U(IDp M( I ) 0 TURB(Il 9 RW(l}p VWUUp SW(IP p CW(I ) 



LP= LP -5- 2 


910 

CONTINUE 



IF ( ISTO( 6 ) 0 EQo i I 
GO TO 913 

GO TO 911 

911 

WRITE (6 s 99i 
DO 912 1= I 9 IXA 
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C0F1= CLIS(4*I-3> 

C0F2 = CUS(4*I-2) 


IF 

( 

C0F1.NE.0.0 ) 

R21F = 

C0F2/C0F1 

IF 

i 

COF1.EQ.O.O ) 

R21F = 

0.0 

C0G1 = 

CL I S{ 4*1-1) 



C0G2 = 

CLIS< 4*1 ) 



IF 

( 

COG1.NE.O.O ) 

R21G- 

C0G2/C0G1 

IF 

( 

COG1.EQ.O.O ) 

R21G= 

0.0 


WRITE (6,98) I ,XU>,C0Fl,C0F2,R21F f C0Gl,C0G2,R21G 

912 CONTINUE 

913 CALL A61R 
RETURN 

ENTER HERE IF AND ONLY IF F ( JEF ) .LE.O.O. OR. 

F( JEF) . GE.WSTOt 2). . AND* FPP ( 1 ) .GE.0.0 IN SUBR ITSR. ALSO 
TOP.EQ.l.AND.I.LT. IX. 

IF IST0( 14) .EQ.l.AND. ISTO( 10).EG.6 THEN TUF 
CALLS SUBR ITFR FOR A TURBULENT RESTART AFTER A 
LAMINAR SEPARATION. 

920 IF ( IST0U4J.NE.1 ) GO TO 936 

WRITE (6,96) 

MT(IC)-(U(IC-1)/U< IC) )**(2.+SF( IC-1 ) ) 

1 * ( TF { I C J /TF( IC-1 >)**(!./( SHR-1. ) )*MTUC-l) 

DT(IC)-MT(IC)*SF( IC-1) 

DTK! IC ) =DTK ( IC-1 )/0T( I C — 1 ) *DT ( IC) 

HT ( IC)=0*0 

IF ( ABS(HT( IC-1 ) ) .6T.ZER0) 

1 HT t 1 C ) =U ( IC-1 )/U(IC)*(TF( I C ) /TF ( IC-l ) ) **( 1. / I SHR-1 .)) *HT ( IC-1 ) 

IF <RW( IC-1 >/OTC IC-1). GT. 0.11 
1 HT ( IC)=HT t IC ) *RH( IC-D/RWl 1C) 

R DTJ. I C ) = RDT TIC- 1 ) *U < I C ) 7U 4 IC— I ) *DT { I C ) /D T II C - 1 ) 

1 * I TF ( IC ) /TF ( IC— 1 ))**(!. 5-1. /(SHR-1. ) ) 

2 *(1./TF( IC)+STC/T0)/(1./TF( IC-1 ) +STC/TO) 

IF IPOP.NE.l) WRITE (6,938 IC,RC,RDTK 
GO TO 922 


ENTER HERE! SKIPPING EFN 920) IF ANO CNLY IF I.EQ.IT IN 
SUBR ITSRo 

921 CONTINUE 
WRITE (6,97) I 

IC- 1 T 

IF ( POP.NEo 1 ) WRITE (6,94) IC, RC, RDTK 

C ISTO(10).EQ.6.0R„ISTO(10).EQ.7. 

922 CONTINUE 
DTS=DT ( IC) 

DTI IC) =RC/RDTK*DT ( IC) 

DTK( IC ) =DTK( IC ) /DTS*DT I IC ) 

MT( I C ) - MT ( IC)/DTS*DT( IC) 

HT ( I C ) =HT ( IC )/DTS*DT( IC) 

RDT( IC)=RDT( IC) /DTS*DT( IC ) 

DO 925 I I=IC» IX 
TURB{ 1 1 ) = 1.0 
925 CONTINUE 
■T0P=0 
! OP-7 
MR=M( IC) 


100 



TFR=TF(IC) 

I«IC 

CA=CA1*DT( l ) 

R=RK*orm 

P=UX*DT ( I > 

RDF= 1 e 0 
JE= JEB 

00 930 J=1 ® JY 
F ( J) =FB ( J ) 

FP(J)*FPB(J) 

FPP ( J ) =FPPB( J ) 

GP(J)=GP8( J) 

GPP( J ) =GPPB( J ) 

D( J ) = 0B( J ) 

DP ( J ) =OPB ( J ) 

TAU( J)=0.001 
930 CONTINUE 

CMU=( 1.5-1. /U. + STC/TO*TFRJ )*< SHR- 1 o 9 ®MR$MR 

CALL VIS ( JE® JY® JD» YY* FP* FPP® GP* GPP* D* OP* TAU® VH», VHP* 

1 TURBI I ) ® SM( I), CM ( I ) * SHR* BH* STC* TO* TFUlt ROT U I * DTtI)* 

2 F(JY), PR* PRT * JtC* VE* VEG* ISTO ) 

DO 934 J=I* JY 

TAU< JI*VE{J)#<OP<J)/D(J)«‘U*-FP<Jn-FPPl J))*SQRTU.+CA*YCJ)I 

934 CONTINUE 

935 CONTINUE 
CF(IC)=2o*TAUU ) 

RETURN 


936 WRITE (6*931 RCjRDTK® RRCD* JE 
WRITE (6,96) 

WRITE (6*99) 

CALL FILE (LABEL* I* YY, F® FP* FPP® GP* GPP* D» DP® 

1 VH, VHP, VHPP* TAU, VE® VEG* SHR® BH* PR® PRT, 

2 X, U, M, TURB* RW, VW* SW* CW® 

3 RDT® DT, MT® HT» SF® CF, ST, STR® ID* JE * J Y® JO, JDI V * I STD® WSTO) 

; GO TO PRINT OUT THE SUMMARY OF THE PARAMETERSo 

GO TO 905 

90 FORMAT ( 45X, 39HPRI NC IPAL BOUNDARY LAYER PARAMETERS FOR/ 

I 26X , 17A4) 

91 FORMAT (//5X® 1HX® 8X® 2HDT® 7X® 2HMT® TX* 2HHT * 5X® 

1 2HSF* 5X® 2HCF * 6X® 2HST * TX® 3HGPW® 5X® 

2 3HRDT, 7X® 1HU* 7X, 1HM® 4X® 4HTURB® 5X, 2HRH® 

3 8X, 2HVW, 7X « 2HSH * 4X® 2HCW/ ) 

92 FORMAT {/IX* F8„5® IX® 3(F8„6* IX), F5®3® IX® 

1 2 ( F7. 5* LX), F8 0 5® IX® F8 o 0® IX® F8®3, IX® 

2 F6o 3* IX® F5 • 3® IX* FB<>3® IX® F9„4® IX, F8<,5® IX® F5.1) 

93 FORMAT ( IH2® 30 X , 4H IC= 14 / 

1 1H0* SOX, 41HLAMINAR SEPARATION HAS OCCURED WITH RC - 

2 1 PE9o2» IX® 11HANO RDTK = ® 1PE9® 2 * 5X ® 6HRRCD= E9 0 2®5X*3HJE= 14 

3 //// 53X, 17HTURBULENT RESTART///) 

94 FORMAT (1H0/IH0* 42HF0RCE0 TRANSITION HAS OCCURED WITH 1C=IT= *13, 

1 3X, 4HRC= 1PE9 0 2® IX® 11HAN0 RDTK = ® E9o2 

2 //// 53X® I7HTURBULENT RESTART///) 

95 FORMAT ( IX® 46HF( JEF ) 0 LT 0 O * 0„ OR* F ( JEF ) ® GT « t»STO( 2 ) ) IS TRUE® 

2 13HIST0 ( 10 ) oEQo 5 ®5X® 20HTHE PROFILE FOLLOWS® ) 
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FORMAT <IX,41HF( JEF > . GT .0. 0. AND. F ( JEF ) . t T . WSTO < 2}. AND. 

2 40HFPP(1J„LT.0.9 IS FALSE. I STO ( 10 ) .EQ. 6, 5X, 

3 41HTHE PROFILE FOLLOWS UNLESS I STO< 14 > . EQ. 1 . J 

9? FORMAT (IX, 24HI.EQ.IT ON ISTO( 10 > . EQ. 7, 5X, 2HI= 14 ) 
99 FORMAT (1X,2HI= I3,2X,6HX(I|= 1PE 12.5 , 5X, 6HC0F1= 

2 2X 1 6HC0F2® F8. 4, 3X , 6HR21F= F8. 4 , 5X, 6HC0G1= F8 

3 6HC062* F8.4,3X,6HR216= F8.4 ) 

99 FORMAT (1H1? 


ENO 


/ 


0PF8.4, 
. 4, 2 X, 
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OPERATING INSTRUCTIONS 


The description of the input of the program is described in the Input Variables sec- 
tion. Further explanation of input preparation is given in the Special Instructions for 
Preparing Input section. This is followed by a description of the output variables and 
test cases with sample input and output. 

Input Variables 

Table HI shows the input variables as they are punched on the data cards. The 
"Star Cards" in the table are used to separate the input variables from data comment 
cards. Since the program does not use any constants which depend on the system of 
units (except the free -stream total temperature), any consistent set of units may be 
used. 

The ISTO and WSTO arrays are described after the other input variables. The 
ISTO and WSTO arrays are used to indicate various program options on the input and 
output. If more details are needed to determine the value of the input variables than 
are contained in the succeeding discussion, refer to the comments in table VI. 

JDIV Number of subintervals between consecutive values of the f '(??) and g’(rj) 

input profiles. 

JY Total number of rj values of f T (r?) and g T (rj) input profiles, maximum 

value of JDIV JY is 300. 

YY(I) Array of 7} profile values. 

JEF Total number of f’ (??) values on the input profile. 

FP(I) Array of V(t}) profile values. 

JEG Total number of g’(??) values on input profile. 

GP(I) Array of g’(??). profile values. 

IOP Initialization option number: 

If IOP.EQ. 1, 2, 3, the input profile is the starting profile. 

If IOP.EQ. 4, 5, 6, 7, the starting profile is calculated using the input 
profile as a rough guess 

o 

If IOP. EQ. 1, the starting flow is laminar and (dU/dx)6* / is known. 
If IOP. EQ. 2, the starting flow is turbulent and {j*(dp/dx)r w is known. 
If IOP.EQ. 3, the starting flow is turbulent and (dU/dx)6*/U is known. 
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TABLE ffl. - Continued. INPUT FORM FOR PROGRAM 


12 3 4 5 

6 

U 9 10 

II 12 

13 -S4 15 

6 i7 lej 

19 20 21 22 23 24 

?$ 26 ?7 2B 29 30 

31 32 33 34 56 3&|a> 38 59 40 

41 Uz\ 

43 44 46 46 47 48 

*9 50 51 52 53 54 

>5 56 57 58 59 60 

61 62 65 64 65 66 

sr 68 69 TO 

d 

73 74 75 76 77 79 79 80 

* 
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MOP 

DGP 

10 

TOP 

POP 

MR 

DT(1) 

RDT(l) 

BS 


If IOP.EQ.4, the starting flow is similar laminar. Only on this option 

do calculations start from the beginning of the boundary layer growth. 

o 

If IOP.EQ. 5, the starting flow is laminar and (dU/dx)6* fv ^ is known. 

If IOP.EQ. 6, the starting flow is turbulent and 6*(dp/dx)/r w is known. 

If IOP.EQ. 7, the starting flow is turbulent and (dU/dx)5*/U is known. 

Designated options on the g’(i7) profile. The option number is determined 
from the desired method of obtaining the g'(rj) profile whether the flow 
properties are variable or not (see table IV). 

Controls the interpretation of either the input velocity or the Mach number 
input data. The option number is determined from table V. 

Determines type of flow: 

IO.EQ. -1 for axisymmetric flow on inside surface formed from 
radii drawn from body axis. 

IO.EQ. 1 for axisymmetric flow on outside surface formed from 
radii drawn from body axis. 

10. EQ. 0 or blank for planar flow. 

If TOP. EQ. 1, transition is to be calculated by the program. 

Print option for listing data. 

If TOP. EQ. 1, skip detailed list of output (see table VI). 

Reference free -stream Mach number generally equal to the potential flow 
Mach number at start of boundary layer calculation: 

If IOP.EQ.4, MR=M(2), and if I0P.NE.4, MR^M(l). 

K IOP.EQ. 7 and M(l). EQ. 0. 0, MR is reset to 0. 001. 

Displacement thickness at start of boundary layer calculation: 

If IOP.EQ. 7 and DT(1).EQ. 0. 0, DT(1)=0. 001 in the program. 

Reynolds number based on displacement thickness at the start of the 
boundary layer calculation: 

If IOP.EQ.4, RDT(l) becomes ^-x^U^)/^ and can be calculated in 
the program (see WSTO(3) input). 

Input for initial pressure gradient: 

If IQP.EQ.1, BS is (dU/dx)5*^/^ 0O . 

If IOP.EQ. 2, BS is 6*(dp/dx)/T w . 

If IOP.EQ. 3, BS is (dU/dx)6*/U. 
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TABLE IV. - ALTERNATIVE VALUES OF MOP 


Flow properties 

Method of obtaining g*(?}) profile 

Not variable 

Variable 

-1 

1 

h° assumed constant and equal to h° throughout the 
layer; g'(r;) = 0. 0. 

-2 

2 

g^ = GBC = [h° - - h r ) is the wall 

boundary condition imposed on the energy equation. 

-3 

3 

! 

i 

i 

g-; = -(GBC)d w /T w = -S^Aw is the wal1 
boundary condition imposed on the energy equation 
where = R L S tr = I^/[p c *' 0O (h° - hj] for 

laminar similarity starting solutions and 

= S tr = J[p e V ( h e " h r)] for a11 others - 


TABLE V. - ALTERNATIVE VALUES OF DOP 


Interpretation of input U iQ (I) 

Interpretation of input, 
profile 

. Mach number input, 
a u in (U - M(i) 

Velocity input, 
a u in - U(I) 


1 

- (U - u)/U 

V - V 

w in w 

-2 

2 

a f| n (r?) ~ (p e U - pu)/{p e U) 
V w in = (Pw^w 


^hese interchanges take place at the beginning of the program 
and thereafter U(I) and f ' ( ?;) have their conventional mean- 
ings, whereas VW(I) represents (P w /P e )V w throughout the 
calculation for DOP = ±2. 





TO 

BH 

FT 

X(D 

U(I) 


TURB(I) 


GBC(I) 

RW(I) 

VW(I) 

SW(I) 


If IOP.EQ. 4, BS=1. 0 for Falkner-Skan stagnation point flow and 
BS=0. 0 for Blasius flat plate flow. 

If IOP.EQ. 5, BS is (dU/dx)6* 

If IOP.EQ. 6, BS is 6*(dp/dx)/r w . 

If IOP.EQ. 7, BS is (dU/dx)5*/U. 

Free-stream total temperature in degrees Kelvin. 

Enthalpy ratio, (h° - h r )/h° 

Free-stream turbulence, fraction of time during which the flow at a given 
position remains turbulent. 

Wall station locations (see Special Instructions for Preparing Input 
section). 

Free-stream velocity corresponding to each x-location. The arrays of 
X(I), U(I), etc. , are specified along the boundary surface for the down- 
stream calculations. The maximum number of x-stations that can be com- 
puted is 99. The last station data card should be followed by an x-card 
with an x less than the previous x to switch out of the card read in loop. 

Indicates fraction of flow that is turbulent. 

For laminar flow, TURB(I)=0. 0; for turbulent flows, TURB(I)=1. 0. By 
changing TURB(I) from 0. 0 to 1.0, either abruptly or gradually over a 
distance of several x-stations, the effect of transition can be simulated. 
Also see WSTO(13). 

If the transition option is used (i. e. , TOP.EQ. 1), a TURB(I) input is 
not needed. 

If flow is all laminar, TURB(I) input is not needed. 

If flow is turbulent, set TURB(I)=1.0 at desired X(I) location. 

All other TURB(I) at locations GT.X(I) will be set to 1. 0 by the pro- 
gram. 

Wall boundary condition on the energy equation, either g ? (wall) or \ 

g"(wall). 

Radius of body surface in the same units as x. 

If 10=0, RW=0. 0. 

Transpiration velocity in the same units as U. 

Nikuradse sandgrain roughness scale in the same units as x. 
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CW(I) 

The 

ISTO(l) 

ISTO(2) 


ISTO(3) 

ISTO(4) 

ISTO(5) 

ISTO(6) 

ISTO(7) 

ISTO(8) 


Longitudinal wall radius of curvature in the same units as x. 

ISTO and WSTO arrays are now described. 

If ISTO(l). NE. 0, then the program lists input data. ISTO(2), ISTO(3), 
ISTO(4), and ISTO(7) are options used to list boundary layer velocity pro- 
files. 

If ISTO( 1). EQ. -1, skip listing the profiles except at the x -location de- 
noted by ISTO(7), or at the last x-location calculated if separation occurs. 

If ISTO(2). EQ. 0, the profiles are listed on each profile point to the profile 
end provided there is no u/U. GT. 1 overshoot. On overshoot with 
WSTO(l). LE. 1 each succeeding JDIV point is listed unless 
ISTO(4). NE. 0. 

If ISTO(2). EQ. 1, FILE lists only the profile end values at the wall and 
boundary layer edge {provided ISTO(4). NE. 0 to bypass the possible pro- 
file overshoot). 

If ISTO(2). EQ. 2, the profiles are listed on each profile point to the first 
point greater than WSTO(l). 

If ISTO(2).EQ. 3, the profiles are listed on each profile point at the JDIV 
interval to the profile end. 

If ISTO(2).GE. 3 or . LT. -1, only the value of each profile at the wall is 
listed unless overshoot (u/U. GT. 1) occurs. Overshoot is suppressed if 
ISTO(4). NE . 0. 

Used to compute the profile point list interval. 

List internal = ISTG(3)* JDIV. 

If ISTO(4). NE. 0, the list for the overshoot (u/U. GT. 1) portion of the pro- 
file is suppressed. 

If ISTO(5). EQ. 1, the program lists the momentum and energy equation 
boundary values for each iteration if POP. EQ. 0. 

If ISTO(5).EQ. 0, the program does not list transition statistics or vis- 
cosity functions VE, VEG, etc., at the wall. 

If ISTO(6). EQ . 1, the energy and momentum balances COF1, COF2, etc., 
together with their ratio are listed for all computed x-stations. 

x -Location number that a profile list is required. 

Used to include a linear section of x-station data from x = 0 to some 
x-location. specified by slope test. ISTQ(8) must be greater than or equal 
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ISTO(9) 

ISTO(IO) 


isro(ii) 

ISTO(12) 

ISTO(13) 
ISTO( 14) 

ISTO( 1 5) 

WSTO(l) 

WSTO(2) 

WSTO(3) 

WSTO(K) 

WSTO(5) 

WSTO(8) 

WSTO(9) 

WSTO(IO) 


to 1 to include linear section. The end point of the linear section after the 
interpolation of new x -points equals ISTO(8) plus the x-station number of 
the last station read in before the interpolation. The total number of 
x-station points will be increased by ISTO(8)+l. This option should be used 
only when the slope of the input data increases somewhere between x = 0 
and the first maximum. 

Determines the end point of the linear section. If the x-station data read 
in is greater than ISTO(9)+2, begin the slope test. 

Input is not used by program. However, ISTO(IO) can be used as an 
identification of the input data decks, such as EQ. 1 for first case, EQ. 2 
for second case, etc. 

If ISTO(ll). EQ. 1, one set of station data read in on tape. If 
ISTO(ll). EQ. 2, more than one set of station data read in on tape. 

Nondimensionlizes x-station data after computations. If ISTO(12).EQ. 0 
and WSTO(IO). EQ. 0, x-station data are nondimensionalized with the last 
x-station to be computed. 

Used to list full profile near zero shear. 

K ISTO(14). EQ. 1, turbulent restart occurs at the point of laminar separa- 
tion. 

If ISTO(15). EQ. 0, station data are read in from tape. If ISTO(15). NE. 0, 
station data are read in from cards. 

Used to set amplitude list limit for the profile u/U usually taken as 
0.9999. 

Used to limit amplitude of profiles u/U for calculations. 

Used to recalculate RDT(l). If IOP. EQ. 4, WSTQ(3)= 1/^(1). 

k = 4, 6, 7 are used only if ((RX*RW(I))**2). GE. 1 where 
CAl=WSTO(4)+WSTQ(6)*X(I)+WSTO(7)*X(I)*X(I). See subroutine IT SR. 

Used as a scale factor for X(I) before computations. If WSTO(5).NE. 0,- 
then X(I)=WSTO(5)*X(I) on read in. Likewise for RW(I). 

Used as a scale factor for U(I) before the boundary layer computations. 

If WSTO(8).NE. 0, then U(I)=WSTO(8)*U(I), 

K WSTO(9). NE. 0. 0, COTR sets GP(I)=WSTO(9)*GP(I) on read in. 

K WSTQ(10). EQ. 0 and ISTO(12). EQ. 0, the program sets WSTO(lO)=X(IX) 
where IX is the station number of the last x-station to be computed. If 
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WSTO(ll) 

WSTO(12) 

WSTO(13) 

WSTO(14) 

WSTO(15) 

WSTO(16) 

WSTO(17) 

WSTO(18) 

WSTO(19) 


WSTO(IO). NE . 0 x is nondimensionalized after computations and X(I) is 
scaled X(I)=X(I)/WSTQ(10). 

Used to compute RDT(l). If IOP.EQ.7 and DOP.GT.O, 
RDT(l)=U(l)*DT(l)/WSTO(ll). WSTO(ll)=y(l). If WSTO(ll).EQ. 0, the 
program sets WSTO(11)=0. 1564*10**-3. 

Not used. 

Value of TURB(I) in the transition region for which turbulent restart will 
be allowed. 

If WSTO(14).EQ. 0, turbulent Prandtl number (PRT).EQ. 1.0. If 
WSTO(14). NE. 0, PRT=WSTO(14). 

If WSTO(15).EQ. 0, molecular Prandtl number (PR). EQ. 0. 78. If 
WSTO(15). NE. 0, PR=WSTO(15). 

Used as a conversion factor for U(I) before boundary layer computations. 
H WSTO(16).NE.O, U(I)=WSTO(16)*U(X). 

Used as a multiplier for GBC. If WSTO(17). NE. 0, 
GBC=WSTO(17)*GBC(I). 

Sonic velocity corresponding to static temperature at start of boundary 
layer calculation. 

Static temperature at start of boundary layer calculation. 


WSTO(20) Not used. 

A master input data sample with comments of the input variables is shown in 
table VI. Table VI illustrates the use of subroutine A6IR to read in and list comment 
cards in the input deck. 


Special Instructions for Preparing Input 

Specification of profiles . - The input intervals of tj are subdivided by the input 
JDIV. For a laminar calculation the r) step need not vary appreciably across the 
layer, and the product of JY and JDIV equal to 150 is usually adequate to define a 
profile. However, in a turbulent portion of the x -profiles a smaller step size should 
be prescribed close to the wall than is specified further out to improve the accuracy in 
the "law-of-the-wall" region. The 77 step size although variable from wall to bound- 
ary layer edge, remains fixed throughout the boundary layer calculations. The input 
step sizes should be specified for accurate results in both laminar and turbulent por- 
tions of the flow. The outer edge of the boundary layer in the rj coordinate will not 
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TABLE VI. - MASTER INPUT DATA SAMPLE 


SO AT A 

0 A TEST CASE FOR THE TUF PROGRAMoo.ee. * 

* * 


* IF 2 S? 0 ( 15 ) 0 EQ 0 O FOR TAPE READ OF THE X-STATION DATA THEN * 

* THE X-STATION OAT A CMOS ARE TO BE DELETED* ALSO ISTOCK)* * 

* K* U P 12 MUST BE PROPERLY SET* * 

a * 


$ 

a 

* 

* 

«r 

O 

* 

$ 

* 

$ 

0 

O 

s 

o 

& 

☆ 

s 

Ct 

fc 

$ 

o 

* 

«? 

☆ 

£ 


6 

* 

<? 

if 

o 

0 

<1 

# 

& 

* 

# 

o 

$ 

o 


I STO(K) p K*l*I5 FORMAT U5ISI * 

isrocu * 

IF ISTOC l ) oNE®0 THEN SUBR COTR LISTS EITHER THE INPUT DATA ♦ 
OR THE MODIFIED INPUT DATA* IF I$rO(il«EQ«2 THEN SUBR I NI R * 
LISTS ALSO THE MAJOR BOUNDARY PARAMETERS INCLUDING UU) 9 * 

Mm* TFU)o SEE POP HEREIN® * 

ISTOIK), K- 2*3*4 f 7 e * 

SUBR FILE USES HS70IK), K=> 2,3, 4*7 TO LIST AT MX) THE * 

PROFILES ON Y AS FOLLOWSoo* , * 

^ASSUME THAT WSTOU ) * IT* l o * • * 

SUBR FILE ALWAYS INITIALIZES THE LIST SWITCH 1WSW* IST0C2) * 
AND THE TEST FOR U(X) OVERSHOOT FOLLOWS IMMEDIATELY* * 

SUBR I NI R RESETS JE* MAXCM JEF 9 JEG ) AFTER EXPANDING THE * 

NUMBER OF POINTS ON THE YY( J > ,FP< J) ,GPU) PROFILES BEFORE * 

COMPUTING THE Y|J). SUBftS ITFRp ITSR RESET JE* MAXO ( JEF , JEG ) * 
AFTER THE EXIT FROM SUBR PROFYL. * 

JE* MAXOI JEFp JEGI AFTER THE EXIT FROM SUBR PROFYL* * 

*ISTOm.EQ.-l®*® * 

IF I STGl 2 > oEQ o- i THEN FILE SKIPS ALL LISTING EXCEPT TO LIST * 
A FULL PROFILE ON EITHER' ISTQtTI.EQ.I (X) OR AN END OF CASE * 
ON ISTOUOKEQ*5,6 IN SUBR ITSR WHICH IS FOLLOWED BY A CALL * 
OF FILE BY SUBR NOIR* SEE ISTOm. * 

Q I STOI 2 ) o EQo Oeeo ♦ 

IF ISTOIZI.EQ.O THEM FILE LISTS ON EACH * 

LSPT* LSPT « (JPTS* ISTOI 3>*JDm PROFILE POINT TO THE * 

PROFILE END JE PROVIDED THERE IS NO UIYI/UIBLEJ .GT.l * 

OVERSHOOT. ON OVERSHOOT WITH WSTOdl.LE.l EACH SUCCEEDING * 

JDI V POINT IS LISTED UNLESS I STOI 4J „NE .0. * 

♦IST0I2I.EQ. 1... * 

IF ISTOI 2 } eEO.l THEN FILE LISTS ONLY THE PROFILE END VALUES * 
AT THE HALL AND BOUNDARY LAYER EDGE I BLE ) J= JE PROVIDED * 
I STO( 4) .NEoO TO BYPASS THE POSSIBLE U OVERSHOOT. * 

«-IST0C2).EQ. 2 ... * 

IF ISTOI21.EQ.2 THEN FILE LISTS AS FOR 0 EXCEPT THE LISTING * 
IS ENOED ON THE 1ST LISTED POINT AFTER U1Y)/UIBLE) .GT. * 

HSTOm. TO LIST THE FULL PROFILE ON ISTOI2l.E0.2i> AND AT * 
EACH LSPT POINT ON AN EXPECTED OVERSHOOT, SET WSTOID* 10 . * 

FOR EXAMPLE, AND SET 1 STO ( 4 ) .NE.O. 4 

*ISTOm.EQ. 3 ... 4 

IF ISTOI 2I.EQ.3 FILE LISTS EACH PROFILE POINT AT THE JOIV * 
INTERVAL TO THE PROFILE END AT JE. THE BST0I4I SWITC-H IS * 
INEFFECTIVE. IWSW MAY BE RESET = 3 AFTER IHSW* IST012). * 

*ISTQl 2) .GT . 3 OR .LT.-l... * 

IF IST0I2 J.GT.3 OR .LT.-l,, SAY 4 OR - 2 , THEN FILE LISTS ONLY* 
THE- HALL VALUE OF EACH PROFILE UNLESS OVERSHOOT ON UIY» * 

OCCURS. ON OVERSHOOT LISTING IS SUPPRESSED IF I ST0I4I .ME.O.* 

ISTOI 31 . * 

IST0I3) IS USED TO GET THE STANOARO LIST INTERVAL OR * 
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TABLE VI. - Continued. MASTER INPUT DATA SAMPLE 


* JPTS=IST0(3)*JDIV FOR THE LIST ON LSPT* LSPT ♦ JPTS. * 

* ISTOm * 

* IF ISTOm.NE.D THEN FILE SUPPRESSES THE RESET OF THE IWSW * 

* LIST SWITCH* 3 ON U(Y)/U(BLE).GT.1.< AND, ALSO SKIPS THE * 

* LISTING OF THE HEADING. * 

* IF ISTO(A).EQ.l THEN FILE SKIPS THE LISTING OF ALL SECONDARY* 

* PROFILE POINTS SUCH AS TAU... * 

* ISTOI5) * 

* ISTOI5) IS TESTED ONLY IN SUBRS 1TFR, ITSR,VIS, TRANS. * 

* IF ISTOI5 I.NE.l THEN SUBR ITFR BYPASSES BOTH TEST AND LIST * 

* ON POP. * 

* IF ISTOI 5 ) .NE .1 THEN SUBR ITSR BYPASSES THE TEST OF POP * 

* TO LIST THE MOMENTUM AND ENERGY EQUATION BOUNDARY VALUES * 

* FOR EACH ITERATION. THE TEST OF POP TO LIST SOME IMPORTANT * 

« INPUT PARAMETERS BY SUBR INIR IS UNAFFECTEO BY ISTO<5l. * 

* NEITHER I STO( 5) NOR POP AFFECTS THE CALL OF SUBR FILE BY * 

* SUBR ITSR. * 

* IF IST015 ) .EQ.O SUBR VIS BYPASSES THE LISTING AT THE WALL * 

* OF THE VISCOSITY FUNCTIONS VE,VEG, VHP , VH WHEN AT LEAST ONE * 

* OF THE FUNCTIONS = 0.0 AT THE WALL. * 

* IF ISTQ< 5 ) .EQ.O SUBR ITSR BYPASSES THE LISTING OF THE * 

* TRANSITIONAL STATISTICS. * 

* IF ISTOI5 > .EQ.O SUBR TRANS SKIPS LISTING OF MISCELLANEOUS * 

* TRANSITIONAL STATISTICS. * 

* IN ITFR THE STARTING PROFILES OF THE MOMENTUM AND ENERGY * 

* EQUATIONS TOGETHER WITH THE BOUNDARY CONDITIONS AT 1IX)*1,2 * 

* ARE ALWAYS LISTED IF ISTOII I .NE.O.AND. IOP.GT. 3. OTHERWISE * 

* IF I STOI 5 ) . £Q. I . AND . POP. NE. 1 THE STARTING PROFILES WILL BE * 

* LISTED. FOR IOP.LE.3 THE INITIAL PROFILES LISTED BY SUBR * 

* FILE IN SUBR INIR ARE THE STARTING PROFILES. * 

* ISTOI6I * 

* IF I STOI 6 ) .EQ.l SUBR ITSR LOADS CLISU) WITH A TABLE OF * 

* COF1, CQF2, COG1.COG2 FOR ALL COMPUTED X-STATIONS AND SUBR * 

* NOIR LISTS CLISIJ > TOGETHER WITH THE RATIOS R2IF,R21G WHERE * 

* R21F=* COF2/COFI AND R21G* CDG2/COG1. * 

* I STOI 7 1 * 

* ISTOI7I IS A SWITCH USED BY SUBR FILE TO OVER RIOE THE * 

* NORMAL LIST OPTION AT 1(X> IN ORDER TO LIST A SET OF FULL * 

* PROFILES ON THE SUBR FILE SWITCH IWSW= 3. * 

* THE VALUE OF IST0I7) AT THE TIME OF READ-IN ALWAYS YIELDS A * 

* SUBR FILE LISTING AT 1 1 X J = IST0I7) IF SUBR FILE IS CALLED. * 

* IF I STOI 7 I . EQ. I ( X-STATI DN NUMBER I SUBR FILE RESETS * 

* IWSW* 3 AND LISTS AS FOR ISTOI2)* 3 TO JE = MAXOIJEF.JEG) * 

* WHICH IS A RESET IN BOTH ITFR AND ITSR AFTER THE EXIT FROM * 

* SUBR PROFYL. * 

* SUBR INIR RESETS JEF, JEG AFTER EXTENDING THE PROFILES * 

* ON JDIV. LATER SUBR PROFYL RESETS JE* J WHEN * 

* ABS(FPU) ).LE.1.*E-D8, BUT AGAIN SUBRS ITFR, ITSR RESET JE. * 

* IST0I7J IS RESET* I IX) BY SUBR ITFR BEFORE MAKING THE TEST * 

* IF ISTOII). NE.O.AND. IOP.GT. 3 CALL FILE, FOLLOWED BY THE TEST * 

* IF I STOI 5 ) * EQ.l. OR. POP. NE. I CALL FILE. ISTOIT) IS * 

* ALSO RESET TO (I) AT IIX) BY SUBR ITSR FOR A DETAIL LIST ON * 

* COMING CLOSE TO TURBULENT FLOW FROM LAMINAR FLOW. SEE * 

* I STOI 13 ) • * 

* BOTH SUBRS ITFR, ITSR RESET ISTO(T) TO THE SUBR COTR READ— IN* 

* VALUE AFTER LEAVING SUBR FILE. * 

* I STD ( 8 1 * 

* IF ISTOm.NE.O THEN IST0I8) IS USED TO INCLUOE A LINEAR * 

* SECTION OF X-ST AT ION OATA BETWEEN X* 0.0 AND XU)* XCIS-I) * 

* BASED ON A SLOPE TEST. THE TOTAL NUMBER OF X STATION POINTS* 
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TABLE VI. - Continued. MASTER INPUT DATA SAMPLE 


o 

$ 

o 

$ 

$ 

& 

$ 

o 

$ 

$ 

$ 

# 

* 

$ 

* 

o 

<3r 

V 

$ 

<* 

# 

* 

* 

❖ 

$ 

$ 

* 

* 

$ 

$ 

❖ 

$ 

* 

% 

* 

♦ 

* 

♦ 

* 

* 

$ 

♦ 

* 

$ 

❖ 

* 

❖ 

* 

4 

$ 

* 

$ 

❖ 


* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

♦ 

* 

* 

* 


HILL BE INCREASED BY IST0C8S * 1® 

TO INCLUDE THE LINEAR SECTION ISTO<8) RUST BE * GE« 1 « THEN 
UJO AT THE END POINT OF THE LINEAR SECTION AFTER THE 
INTERPOLATION = ISX* 5$TD< 8) *1 S I l ) WHERE ISU1 IS THE X 
STATION NUMBER OF THE LAST STATION READ IN BEFORE ™ E 
INTERPOLATION THEN ISUWGE.3 AND BECOMES .GE.5 DR AFTER 
THE INTERPOLATION US) BECOMES - IST0C8) ♦ ISCLl ♦ 1* THE 
TOTAL NUMBER OF STATIONS TO BE COMPUTEO « IX » total 
NUMBER OF X STATIONS READ IN, PLUS, IF ISTOC8).NE.Q THE 
ADDITIONAL POINTS ISTO(8l+l, BUT IX IS CUT TO BE .LE.99* 

I STO ( 9 ) 

ISTO(^) IS USED BY SUBR COTR TO DELAY THE SLOPE TEST UNTIL 
KXKGT.IISTO|9) + 2>. THE SLOPE TEST CAUSES AN J^SERTION 
OF A LINEAR SECTION FROM X* 0.0 TO X(ISX) ONLY IF THE SLOPE 
DUX OF THE DATA AT THE U(X) PLACE IN THE X-STAT10N DATA 

from xu-1) to XI n .gt. the slope duz from x- o.o to X I-ll* 

0 OR. ( IDP.EQ.^. AND.8S.EQ. I ) .OR. LINE. EQ.l WHERE LINE IS 

SET = 1 AFTER OUX.GT.DUZ. _ 

Um NEED NOT BE ZERO FOR THE SLOPE TEST, AND IS USED 

together WITH lill-LI to compute the slope OF LINEAR 

PORTION OF THE U(X) CURVE WHERE U(X) IS MIX) IF DQP.LT.D. 
HOWEVER, U(D IS RESET TO 0.0 BEFORE THE INTERPOLATION IF 

THE* TEST* FOR ENDING THE STATION DATA REAO IN ON 
< XII) - X(M) > «LE. 0.0 BEGINS ONLY WHEN im.GT.lPS 
WHERE IPS* IST0I9) + 2 WHEN THE X-STATION OATA IS READ IN 
FROM THE TAPE. 

ISTOtlO) 

ISTD(IO) IS USED BOTH AS A TELL-TALE AND AS A SWITCH. 

SUBR NOIR USES ISTO(IO) AS A SWITCH TO RE-INITI ALI ZE THE 
NECESSARY PARAMETERS FOR A RESTART IN SUBR ITFR ON A CALL BY* 


♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 


TUF. IST0C10J IS ALSO USED BY TUF TO GO TO THE NEXT CASE 
ON A CALL OF SUBR INIR AFTER AN EXIT FROM EITHER INIR ON 
IST0( 10 1 ■ EQ.9 OR ITFR ON l$TOUO).EQ.8. IF EITHER JEF,4EG, 

JY IS .GT.300 ON THE RETURN FROM SUBR COTR THEN SUBR INIR 
ftPSETS IST0(10)*9. IF ONLY THE STARTING PROFILE IS TO BE 
COMPUTED, IX. EQ.l, 2 THEN SUBR ITFR RESETS 1ST0I10I-8 BEFORE 

ISTO(10> T IS T INITIALUED * 0 BY SUBR INIR AND RESET = 1 BY 
SUBR COTR AFTER THE ISTOtKI READ- IN, = 2 BY ITFR, »3 BY ITSR,* 
ANO IS RESET = 4,5, 6,7 BY SUBR ITSR BEFORE THE EXIT TO TUF. * 
SUBR ITSR RESETS ISTOIIO)= 4 BEFORE EXITING ON I- IX. * 

SUBR ITSR RESETS IST0(10>= 5 FOR A NON-SCHEDULED CASE END IF* 
FI4EF).LT®O.O.OR.Ft4EF).GT .WSTOt 2) UNLESS T0P*1» AND. I.LT.1X.* 
HENCE IST0( 10 )• EQ.5 DOES NOT OCCUR WHEN SUBR TRANS IS CALLED* 
EXCEPT POSSIBLY AT THE LAST OR IX POINT. 

SUBR ITSR RESETS ISTO(IO)= 6 WHEN LAMINAR SEPARATION OCCURS 
WHICH IS FOLLOWED BY A RE-INITI ALIZATION IN SUBR NOIR ANO 
A TURBULENT RESTART IN SUBR ITFR PROVIDED ISTOI 14) .EQ.l. 
LAMINAR SEPARATION OCCURS IF TOP. EQ.l. ANO I. LT. IX. AND. IF 
FIJEFI.LE.O.O.OR.FI JEF » . GE.WSTO I 2 » .OR . FPP < 1 > .GE . 0.0. 

SUBR ITSR RESETS ISTOI 10 >= 7 ON A FORCED TURBULENT RESTART 
BY SUBR ITFR WHEN SUBR ITSR REACHES I(X).EQ.IT. SEE 
WST0U31 HEREIN ANO IX, IT IN THE COMMENT ON THE SINGLE WORD * 
COMMON. * 

istquii * 

I STO( 111 IS THE NUMBER OF SETS OF STATION OATA READ IN FROM * 

THE TAPE BY SUBR COTR. THE LAST SET OF DATA REAO IN IS THE * 

SET OF DATA USED AS THE INPUT OATA SINCE THE TAPE IS REWOUND* 
EACH TIME SUBR INIR IS ENTERED. * 
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♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

4c 

♦ 

* 

4c 

4c 

4c 

4c 

♦ 

4c 

* 

* 

* 

* 

* 

4c 

* 

4c 

♦ 

* 

♦ 

♦ 

* 

4c 

* 

4> 


tSTa<I2) * 

IST0tl2) IS USED TO SELECT THE X NON-DI MENS I ONAL I Zl NG ♦ 

NUMBER. SEE WSTOUO) HEREIN. * 

I STOC 12 ) . WSTOCIOJ * 

IN SUBR COTR WE HAVE , FOR TESTING ANO LISTING BY SUBR NDI R, . . * 
IF WSTOUO). EQ.0.0 ANO I STOC 121. EQ. 0 THEN COTR SETS * 

WSTOUOJ® X(IXJ. IX IS THE STATION NUMBER OF THE LAST X * 
STATION TO BE COMPUTED. * 

IF WSTGUOKEO.O.O AND I STO< 12 I . HQ. I. AND. WSTQ< 5 1 . NE. 0 * 

THEN COTR SETS W$TOU0) = XMAS ( U* WSTO ( 5 1 WHERE XMASU) IS * 

SOME X-OI STANCE SUPPLIED BY THE MAIN SUPERVISORY ROUTINE * 

TUF FOR NON-DIMENSIONAL I Z I NG PURPOSES WHEN THE X-STATIQN * 
DATA IS READ IN FROM TAPE. THE XHAS(K) QUANTITIES, IF USED,* 

ARE SUPPLIED TO THE ROUTINE TUF BY THE ROUTINE WHICH CALLS * 

TUF ON THE CONVERSION OF TUF TO A SUBROUTINE. SEE TABLE VII.* 
WSTOUO) IS USED IN SUBRS FILEtNDIR. * 

IST0I13) * 

IF I STOt 1 3) .IT. 0 AND ABS II STO( 13 ) ) . GT . ANY HX> SKIP FULL * 

PROFILE LIST IN SUBR FILE ON X< I) BASED ON THE TEST FOR NEAR* 

ZERO SHEAR IN SUBR ITSR. * 

IF THE X INTERCEPT OF CF(ItX)) IS E ITHER.GT. (X(I )+I $TO(L3) ) * 
.DR.LT.XU) SKIP THE SUBR FILE LISTING ON THE IWSW- 3 RESET.* 

IST0C14) * 

IF ISTOC 1 4) .EQ. I THEN SUBR NDIR PREPARES FOR A TURBULENT * 

RESTART IN SUBR I TFR WHEN LAMINAR SEPARATION OCCURS * 

WITHIN SUBR ITSR WHICH THEN SETS ISTOUOI* 6. * 

I STOC 15) * 

IF ISTOC15UEQ.O THE X-STATION DATA IS READ IN FROM TAPE. * 

IF IST0C15UNE.0 THEN READ IN THE X-STATION DATA FROM CAROS.* 

IF I STOC 1 5 ) .NE. 0 THEN THE SWITCH ISTOU1J IS BYPASSED. * 

IF ISTOU5I.EQ.O THE CARDS OF STATION DATA MUST BE DELETED. * 

I STOC 16 ) IS NOT READ IN. NOR USED. * 

* 

ISTG( K) , K= 1,15 FORMAT ( 1515 ) * 

221-11122121 l 

WSTQIK) , K=l,20. FORMAT ( 5E15. 8 > * 

WSTOI 1) * 

WSTOU) IS USED BY SUBR FILE AS THE U/UIBLE) AMPLITUDE * 

LIST LIMIT, * 

IF U/UIE) oGT.WSTOtl). ANO. ISTOI2J.EQ.2 SUBR FILE ENDS FURTHER* 
PROFILE LISTING ON Y AT XII). * 

WSTOI 2 ) * 

WST0I2) IS USED BY SUBR ITSR TO LIMIT THE AMPLITUDE OF THE * 

FIETA) PROFILE OUTER END POINT JEF. SEE IST0I10) HEREIN. * 

WST013) * 

WST0I3) MAY BE USED BY SUBR COTR TO RECOMPUTE RDTIll. SEE* 
RDT 1 1 > . ALSO SEE I0P.EQ.4 HEREIN. * 

WSTOI K ) , K= 4,6,7 * 

WSTOIK), K=4, 6,7, ARE USED BY SUBR ITSR IF (RX*RWII))**2 * 

.GE.l.TO COMPUTE CAl*WSTO(4) «-WSTO( 6 >*X( I >+WSTO< 7>*X(I)*X 1 1 ) . * 

WSTOI 5) * 

SEE ALSO WSTOUO), 1STOI12). * 

IF KSTOI5 ) .NE.D.O COTR SETS XII)* HSTO(5)*xm ON READ-IN. * 

IF WSTOI5). NE.D.O COTR SETS RW(I)s kSTOI5)*RW<I) ON READ-tN.* 

WSTOI B) * 

WSTOI 8 ) IS USED AS A RESCALING PARAMETER. * 

IF WSTOI8 ). NE.D.O THEN SUBR COTR RESCALES THE QUANTITY * 

IN THE UII) STORE, WHICH WILL BE TREATEO LATER AS EITHER * 


Utl) OR Mill ACCORDING TO THE VALUES OF MR ANO OOP AS TESTED* 
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* 

$ 

$ 

* 

-* 

* 

4c 

4c 

* 

♦ 

❖ 

« 

* 

* 

* 

* 

4* 

$ 

* 

* 

☆ 

* 

4c 

£ 

* 

* 

4c 

& 

♦ 

4c 

4c 

* 

* 

S 

4c 

4c 


BY SUBR INIR. AT THE TIME OF RESCALING BV SUBR COTR THE * 
QUANTITY IN U(I) IS THE READ-IN QUANTITY IF W$TQ( 16) • EQ.0.0 ♦ 
BUT IS um- HST0(16>«U(1) OTHERWISE WHERE WST 0 U 6 ) IS USED * 
TO CONVERT THE UNIT OF MEASUREMENT OF THE INPUT* FOR THE ♦ 
COMPUTATION OF M< I) FROM THE INPUT SEE SWITCH OOP HEREIN* * 


WST0(9> * 
IF WST0I9) *NE*0.0 COTR SETS GP(I>= WST0<9)*GP(I) ON READ IN.* 

WSTO! 10 S * 
IF WSTOUO) .EQ.0.0 AND ISTOU2).EQ.O THEN COTR SETS ♦ 
WSTOUO)* X C IK | * IX IS THE STATION NUMBER OF THE LAST X * 
LAST STATION TO BE COMPUTED. * 
IF WSTOUO) *EQ*0.0 AND I ST0U2 1 . EQ. 1. AND.WSTOt 5 ) . NE *0 ♦ 


THEN COTR SETS WSTOUO)* XMAS < 1 ) *WSTO < 5 ) WHERE XMAS(l) IS * 
SOME X-OI STANCE SUPPLIEO BY THE SUPERVISORY ROUTINE TUFt SEE* 


TABLE VII , AND GOTTEN IN TURN FROM THE SUPERVISORY ROUTINE * 
OF TUF WHEN TUF IS CONVERTED TO A SUBROUTINE. WSTO(IO) IS * 
USED IN SUBRS F I LE, NOIR FOR SCALING PURPOSES TO LIST A * 
NON-DIMENSIONAL I ZED X(I). * 
IF W5T0(10).NE.0*0 SUBR FILE, AND SUBR NO I R IF THE CASE 1$ * 
ENDED, SCALES X( U- XU) / WSTOUO). HENCE IF WSTO ( 10 1 .EQ. I* * 
XUI IS NOT NGN-D I MENS I ON AL I ZED AND XNOD= XCI). * 
IF WSTOI ID) . EQ* 0* 0 IN SUBR FILE THEN XNOD* XU). * 
IF WSTOUO). EQ.0.0 IN SUBR NDIR THEN X(I)* XU). * 

WSTOUl) ♦ 
IF IOP. EQ. T. AND. OOP. GT.O. AND. ROT(l). EQ.0.0 SUBR COTR ♦ 
COMPUTES ROTU)*U(l)*OT(l)/WSrO(ll). IF WST0( U ) . EQ. 0. 0 * 
SUBR COTR RESETS WSTOUL)* .1564*10**-3 (ENGLISH UNITS). * 

WSTO (12) * 
WSTOU2) IS NOT USED. ( AT LERC WSTO ( 12 ) IS AN EXECUTION * 
TIME LIMITER.) * 

WST0U3) * 
IF WSTOU 3 ) .NE.Oo AND.TOP.NE. 1 THEN SUBR COTR AFTER ALL * 
X-STATION DATA READ-IN RESETS IT* M WHEN * 
TURB{ I ).GT.WST0( 13). THEN, LATER, A FORCED TURBULENT * 
RESTART OCCURS IN SUBR ITFR FOLLOWING A RESET OF ISTQUO)* 7* 
IN SUBR I TSR AFTER SUBR I TSR HAS COMPUTED THE X-STATION * 
PROFILES FOR I» IT. * 
SUBR ITFR ON A RESET OF ISTO(IO)* 7 IN SUBR ITSR AFTER * 
SUBR ITSR HAS COMPUTED THE X-STATION PROFILES FOR 1= IT. * 

* 


* 

❖ 

❖ 

tL 

$ 

$ 

$ 


& 

4c 

Ct 

4c 

O 

Cc 


WSTOUM * 
IF WSTOU 4 ) .NE.0.0 THEN SUBR INIR RESETS PRT* WSTQUA) * 

WSTO ( 15) * 
IF WSTOU5 )*NE.O.O THEN SUBR INIR RESETS PR= WSTOU5) * 

WST0U6) * 
IF WST0U6). NE.0.0 THEN SUBR COTR RESETS THE QUANTITY IN * 
UU)* WST0(16)*UU> BEFORE A POSSIBLE RESCALING OF THE * 
QUANTITY BY WSTOIB). SEE WST0I8). * 

WST0U7) * 
IF WST0U7). NE.0.0 THEN SUBR COTR RESETS * 
GBC ( 2 )* WSTOUT)*GBCU). * 

WSTOUBJ * 
IF WST0U8). NE.0.0. AND. WSTOU9). NE.0.0 THEN WSTOU8) IS THE * 
SONIC VELOCITY READ IN CORRESPONDING TO THE TEMPERATURE * 
READ IN TO WST0U9), AND WSTOU 8 ) , WST0U9 ) ARE USED TO * 
COMPUTE GR* G*R OF THE EQUATION ❖ 
VELOCITY! SONIC) = SQRT ( $HR*GR*T (STATIC) 1. GR IS COMPUTED * 
AND USED BY SUBR INIR TO COMPUTE THE MU) WHEN THE U( 1) * 
READ. IN BY SUBR COTR IS THE VELOCITY. * 
WSTOU8) IS USED LATER BY SUBR ITSR AS CONVENIENT STORAGE. * 
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* 

* 

* 

* 

ft 

* 

♦ 


HST0C19> 

SEE WSTCM 18) HEREIN* 

SUBRS XNIRfrSTSR ALSO USE WST0U9) AS CONVENIENT STORAGE© 

HST0420) 

WST0120) IS NOT USED,, 


WSTOm, K= i » 20 
.20aOCO0OE+O2 
* IT5QOQQOE+03 


ft 
ft 
ft 
ft 

o 

# 

FORMAT i 5E15o8 )* 


«62200000E^06 


.99999000E+00 
*3, OOOOOOOOE+OQ 
0 * 156403006-03 
*O*0OOOOOOOE*OO 
* 

* LA&EUKl-f K*hl8 ON FORMAT (18A4! 

* £ S THE NEXT DATA CARO* 


THE 


i JlOOOOGQQEoOl 


X-STATION HEADING CARO 3 * 

ft 


WSTO 

NSTO 

WSTO 

MSTO 


L****©aD£FFUSER STUDV # ,oo ac 


o o o«eoo<500o« 


>©«e«*«o o4e.otMsao 


DIFFUSER STUD V© © c 


ft 

ft 

♦ 

❖ 


JDIV IS USED BY SUBRS COTRulNIR FOR INCREASING THE NUMBER OF 3 * 


POINTS 

JDIV 


ON THE INPUT YVU 5 » FP (J U GPU & 


PROFILES© 

FORMAT 


i H5X5 B 


ft 

ft 


ft 

ft 

ft 


THREE SETS OF DATA FOLLOW FOR THE PROFILES OF VYULFPUh O 
G P(JK THE NUMBER OF POINTS ON EACH PROFILE IS I NCREASEO O 
BY SUBR COTRo SUBR JEASIR LATER COMPUTES THE EXPANOED , O 


ft 

INITIAL 

PROFILES OF YYtJDtFPMft'GPUJ. 

0 


$ 

IF LISTED THEN GET FOR EACH 

i PROFILE NOo OF WORDS IWT 5 

ft 


❖ 

NO© LAST 

■ STORE OF PROFILED 

AND JDIV FOLLOWED BY THE CARD 

ft 



INPUT© 



ft 


$ 

YYIJ) IS 

i THE COORDINATE FOR 

THE INPUT FMETUGMETAi DATA© 

ft 


ft 

SUBR PROFYL RESETS JE=J«Y& 

WHEW AB$(FPlJM.LEo&e#iOoo~Bo 

ft 



BUT SUBRS INIRo ITFRa ITSR RESET JE* MAH6UEF© JEGB AFTER EXIT 

ft 


Ct 

FROM PROFYLo 


ft 


© 

JV ON FORMAT 12515} THEN VVIJIo J*1 5 J)V ON FORMAT «6F10o5} 

ft 

ft 


48 






OoO 

Q.0Q2 

0d0D5 OoOIL 

0o02 Oo 05 


YV0& 

o7 

o 8 

o 9 1 o D 

1 a 2 1 o 4 


VV18 

oi 

c 2 

O 3 p 4 

© 5 © 6 


VYE 

io6 

lo8 

2oO 2o5 

3o0 3© 5 


YY24 


4*5 

5d0 5 © 5 

6© 0 6 © 5 


VY30 

ToO 

7.5 

8o0 8©5 

9©Q 9©5 


YY36 

I0o 

HI o 

12© 13© 

14o £6© 


VV42 

•Bp 8 O 
o 

2D© 

22© 24o 

26 © 28© 


VY48 


FPUP = 

FMETA} IS THE MOMENTUM EQUATION INITIAL PROFILE© 

ft 

ft 


0 

THE CARD 

i DATA INPUT PROFILE 

F°CETAl VS YY4 ETA } IS CLOSE TO 

A# 


ft 

ft 

SIMILAR 

LAMINAR PROFILE ON 

A CYLINDER ( U«K=0o0S= Q©6}« 

ft 


ft 

ft 

JSEF ON FORMAT (1515}© THEN 

FPU), J=1 1 JEF ON FORMAT 16F10©5|« 


36 






lo 

©998 

©996 © 992 

*985 ©962 


proa 

©926 

© 855 

© 78 ©726 

o66& © 60 


FP12 

©555 

©505 

©457 ©413 

©333 « 265 


FP18 

©208 

ol&i 

a 1L 2 3 ©0588 

©0261 ©0108 


FP24 

*0042? 

©00162 

© 000607 ©000229 

©0000895 .0000366 


FP3® 

O0OGO157 

©00000696 

©00000316 ©00000144 

©06000062 .00006023 


FP36 

❖ 




ft 
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* 

* 

* 

* 

0.0 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

★ 

♦ 

♦ 

* 

' * 

* 

* 

* 

❖ 

* 

* 

* 

* 

* 

* 

* 

* 

❖ 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 


GP< J ) = GMETA) IS THE ENERGY EQUATION INITIAL PROFILE. * 

* 

JEG ON FORMAT <15151. THEN GPU), J»1,JEG ON FORMAT (6F10.5)* 


GP 

0.0 0.0 0.0 0.0 0.0 GP06 

* 

I0P f MOP, OOP, IQfTOPfPDP ON FORMAT (1515) IS THE NEXT DATA * 

CARD. * 

IOP HAS OPTIONS l,2,3,4,5 t 6,7 LISTED IN THE DISCUSSION OF * 

INPUT VARIABLES. SEE ALSO REF. 1. * 

IF 10P.EQ. 1,2,3 THE INPUT PROFILE IS THE STARTING PROFILE. * 

IF IOP. EQ. EITHER 1*5 THE STARTING FLOW IS LAMINAR. * 

IF IOP.EQ. EITHER 2,3 THE STARTING FLOW IS TURBULENT. * 

IF IOP.EQ. 4 THE STARTING FLOW IS SIMILAR LAMINAR. * 

IF IOP.EQ. EITHER 6,7 THE STARTING FLOW IS TURBULENT. * 

IF IOP.EQ. 4 SUBR INIR RESETS IS=2 AND THE STARTING PROFILE * 

IS AT I(X>* IS“ 2. ONLY ON IOP.EQ. 4 DO CALCULATIONS START * 

FROM THE BEGINNING OF THE BOUNDARY LAYER GROWTH. * 

IF IOP.EQ. 4. AND. BS.EQ1 THEN SU8R COTR RESETS U< X=0. 0 ) =0. 0. * 

IF IOP.EQ. 2. 3, 6,7 SUBR COTR RESETS T0P*0 AND TURB(IS)=1.0 * 

IF IOP.EQ. EITHER 4,7 SUBR COTR MAY RECOMPUTE ROT < 1 ) AND MR. * 

IF IOP.EQ. 7 SUBR COTR RECOMPUTES 8S, ALSO RESETS DTm*.OQl * 

WHEN DTm.EQ.0.0 ON THE DT< II READ-IN. * 

MOP * 

MOP. EQ. -1,-2, -3, + 1, +2, +3 FOR OPTIONS ON THE GMETA), GBC (I ) * 
PROFILES IN SUBRS ITFR, ITSR. IBC= ABSIMOP) IN I TFR,I TSR. * 

FOR BOTH SUBRS ITFR AND ITSR... * 

IF ABS ( MOP ) • EQ. 1. OR* MOP .LT .0 COMPUTE THE PROFILES IN THE * 
MOMENTUM EQUATION LOOP TO CONVERGENCE ONLY ONCE AT EACH * 

I ( X I WALL STATION. FOR ABS< MOP J .EQ. 1 THEN BYPASS THE * 

ENERGY EQUATION SECTION AND EXIT TO THE STATION PARAMETER * 
SECTION. IF THE ENERGY EQUATION SECTION IS ENTERED AND IF * 
MQP.LT.O COMPUTE THE ENERGY PROFILES ONCE AND EXIT TO THE * 


STATION PARAMETER SECTION. FOR MOP.LT.O THE DENSITY PROFILE* 


DU) IS INITIALIZED * 1., AND THE X-DERI VAT I VE S OF THE * 
DENSITY PROFILES OP(J>,DB(J) ARE INITIALIZED * 0.0 IN SUBR * 
INIR AND REMAIN UNCHANGED FOR ALL SUCCEEDING X-STATIONS. * 
SEE ALSO TABLE IV, AND THE IBC ENTRY IN THE SINGLE WORD * 
COMMON DISCUSSION. * 

OOP ♦ 
DDP IS FOR THE INTERPRETATION OF INPUT... SEE TABLE V. * 
BEFORE THE TESTS ON OOP AND MR IN SUBR INIR THE DATA INPUT ♦ 
BY SUBR COTR IN THE UU> PLACE OF THE X-STATION OATA IS * 
NOOIFIEO ACCORDING TO THE VALUES OF WSTO(K), K* 8,16. * 
IF MR AFTER SUBR COTR .LT.O.OR.DOP.GT. 0 THEN SUBR INIR * 
COMPUTES MCI) AND TFU) FROM THE UII)* THE MODIFIED * 
VELOCITIES. * 
IF MR.GE* O.OR .DOP.LE.O THEN SUBR INIR COMPUTES TF(I) AND * 
U<I) FROM THE MODIFIED 1)<I)* THE MODIFIED MACH NUMBERS. * 
IF OOP.GT .O.OR.MR.LE.O THEN SUBR INIR COMPUTES UNS* THE * 
REAO-IN VALUE OF U( II IN ORDER TO COMPUTE HU), TFCI), AND * 
THEN RESETS MR* M<1), ML=MR, ANO TFR IS RECOMPUTED. * 
IF OOP.LE *O.OR. MR .GE *0. 0 THEN MU) IS RESET (DIVIDED BY * 
W$TO< 8 > IF WSTOm.NE.O.O) TO THE VALUE OF M(I) AFTER THE * 
MULTIPLICATION BY WST0U6) IF WST0U6 ) .NE. 0.0. THEN * 
TFU) AND UCU ARE COMPUTED FOLLOWED BY A RESCALING OF UU) * 
BY A MULTIPLICATION BY WST0(8> IF WSTO ( 8 ) • NE. 0. 0. * 
FOR OOP EITHER *2,-2 VW(I> UNPUT)* V< WALL )*OENSI TY < WALL I /* 
(DENSITY! BLE) ) * VW U > ALWAYS, AND * 
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TABLE VI, - Continued. MASTER INPUT DATA SAMPLE 


♦ 

❖ 

* 

* 

❖ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

$ 

0 

0 

& 

s 

❖ 

0 

❖ 

0 

0 

0 

if 

a 

* 

0 

0 

<* 

☆ 

0 

0 

O 

0 

❖ 

0 

0 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

* 

0 

0 

♦ 

0 


F METAi* < DENSITY < BLE )*U( BILE l -DENS I TV < ETA >*U( ETA ) / * 

(DENSITY! BLE)*U(BLE>® * 

FOR OOP EITHER *1*-1 VWC 1 1 1 INPUT* * VUJALD AND & 

FM INPUT) I ETA > - ( U( BLE )~U( ETA) ) / UlBLE)* SEE TABLE Ve * 

HONEVER? IF IABSI DOP ) * EQ« 1 * AND© NOP *GE » ^ THEN SUBR INIR * 

ALWAYS RECOMPUTES FMETA)* FPU) FROM THE TF(J> AMD THE 0 

FPl J > *GP( J ) PROFILES BEFORE COMPUTING THE FPPCJI PROFILE*. * 

THE ALTERED PROFILES ARE THEN USED TO COMPUTE THE VE(JK * 

VEG(J) BY SUBR VIS AND THE TAUtJ) PROFILE LATER BY INIRo * 

10 * 

|0*EQ„-1 FOR AXISYHMETftIC FLOW ON THE INS20E SURFACE FORMED 0 
BY RADII DRAWN FROM THE BODY AXIS* * 

IO*EQ* + i FOR AX IS YMMETR I C FLOW ON THE OUTSIDE SURFACE FORMED* 
BY RADII OR AWN FROM THE BODY AXISa * 

IF IG.EQaO SUBR C07R RESETS RW(IS)“ D*0 * 

TOP * 

IF TOP«EOol IN SUBR ITSR THEN ITSR CALLS SUBR TRANS TO * 

INCLUDE THE TRANSITION ZONE- 0 

TOP IS RESET=C IF 5 OP«EQ* 2, 3, 6, 7 AT THE TIME OF TOP READ-IN®# 
IF TOP AT THE TIME OF THE X-STATION DATA READ-IN = 1 0 THEN * 
SUBR COTR RESETS TUR8 ( I ) * 0*0® * 

IF T0Po«Eol.AND.WST0a3l«NE<>0.0 SEE COMMENT ON MSTDU9*. *■ 

POP ° 

EXCEPTING SUBR ITFRv POP DOES NOT AFFECT THE CALL OF * 

SUBR FILE* * 


IN SUBR INIRo** * 

IF EITHER lST0USoEQo2 OR POP*NE«l 0 

THE FOLLOWING LISTINGS OCCUR AFTER THE EXIT FROM SUBR FILE # 
WHICH IS ALWAYS CALLED BY SUBR INIR AND WHICH LISTS # 

ACCORDING TO iSTOfSOo K* 2,3^7 o THE FOLLOWING LISTINGS # 
OCCUR JUST BEFORE THE EXIT TO THE CALLING ROUTINE TUFo * 

IF POPoNEol WRITE (6^9)® WRITE 16C-50) LABEL ( K ) p FOLLOW # 

WITH WRITE (6 P X)o K s 52t> 53? 54* 55* 56*60 THE INITIAL # 

PARAMETERS AND THE X-STATION DATA AT THE STARTING STATION # 
I us* i* &N0* IF IQP*EQ<,4 THE STARTING X-STATHQN DATA AT * 

£ ^ j — 2 # 

ALSO WRITE THE PROFILES. OF Ml It , TP( I J &UI Si AMO THE INITIAL $ 
WALL PARAMETERS AT I ■ i,2. 0 


IN SUBR ITFRooo _ 0 
IF ISTOlStoEQoIl e AND 0 POP 0 NEo 1 WRITE 1 6» 701 „ 4 6,71. 9 I » IS t OS iO> o<* 
IF POP. GT. 3.o. 0 
AT THE HEAD OF THE MOMENTUM- ENERGY LOOP IF I STOl 5 9 oEQ.l. ANDoO 
POP 0 NE 0 I THEN WRITE (6,989 I. 1STOU09. IN THE MOMENTUM 9 
LOOP IF ISTQ!5S<,EQoloANDoP0PoNE®l WRITE 46,729 I ff JfUJEF, «■ 
F{ JEF )«FPPtl)iSF< 8 D®P f QoR« TF( ! f 0 Ml I t , V£ J 1 S 0 VEGl 1 9 , VHl 1 8 , $ 
VHP41)»0( 19»DlJY9eDP(i)»DPl JV1 ON EACH MOM I NDEX. IN THE o 
ENERGY SECTION OF THE MOMENTUM- ENERGY LOOP IF IST045>oEQ.l ® 
o AND.POP.NE.l WRITE 16,769 I e JEG, GP l l I » GPP t 1 > ,C , RL ON EACH * 
MAE INDEX. * 
IF I OP.LE .3. • «■ ® 
USE THE SUBRS 1N1R, COTR PROFILES AS THE STARTING PROFILES ® 
EXCEPTING THE 01 ETA» »OPCETAl » DPI ETA 1 PROFILES ON MOP.GE.O « 
AND THE VE(ETAS»VEG(ETA| PROFILES BY SUBR VIS, SKIP THE * 
LISTINGS FOR 10P.EQ.4, 5, 6, 7 IN THE MOMENTUM-ENERGY LOOP ANO 6 
TEST POP AFTER THE MOMENTUM-ENERGY LOOP EXIT. IF POP.NE.i * 
WRITE (6,72) l»JK»JEF,F(JEF9 ,FPPl l) »SF l I 9 »P,Q,R. THEN WRITE * 
(6,769 I , JEG, GP ( 1 1 »GPP( 19,01 If, TFII ), * 
BEFORE THE EXIT, IF I STOm.NE.O. AND. I0P.GT.3 CALL FILE FOR * 
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TABLE VI. - Continued, MASTER INPUT DATA SAMPLE 


0 

0 

o 

* 

* 

0 

0 

0 

0 

0 

* 

* 

o 

* 

o 

☆ 

0 

S 

0 

0 

0 

* 

0 

o 

0 

O I OP 

o 

0 

0 

0 

0 

0 

0 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

* 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 


THE STARTING PROFILES LXSTINGo OTHERWISE* IF IST0(5)oE9ol * 

oANOoPOPoNEol CALL FILE* * 

' 0 

IN SUBR ITSRooo ° 

FOR THE X-STATION HEADING IN THE IUI LOOPooo * 

IF POPoNEol WRITE ( 6«5l»« LABEL fl K ) * WRITE *6*60)* THEN IF * 
iSTOfSKEQci WRITE 16*70** WRITE (6 ? 8X5* * 

IF SST015 loEOolfl THEN IF POPoNE^looo * 

FOR EACH VALUE OF THE MOMENTUM LOOP INDEX WRITE (6*82) JK* 0 
JEF*FUEF5 ,FPP<1) *DT (I) * DTXM* Ptt* 0M 9 RM o FOR EACH VALUE OF 0 
THE MOMENTUM- ENERGY LOOP XWDEX*MAE 5 WRITE *6,86) JFG 0 GP(U»* 
GPPaKOIl) UNLESS I BC q EQo I FOR WHICH THE ENERGY EQUATION 0 
SECTION IS SKIPPEOo * 

THEN IF POPoNEo I WRITE (6*89) COF UC0F2 *R2IF* COGl *COG2 * 

R21G* UP, WSTOU8) fl XCF*$CF* STMEo FOLLOWING THE LISTING OF 0 

DISPLACEMENT CORRECTION FACTORS* IF I STO t 5 j) o NE* Oo AND* o 

POPoNEol WRITE (6*96) RRCD* RRFT* RMC *RMTW *RMT ,RC* RDTK* DRDC , 0 


DRMUDRM2 WHICH ARE THE TRANSITION STATISTICS* 0 

0 

IN SU8R NDIRooo 0 

IF IST0a0)oEQo5oANDoKST0a^l} oEgoloANDoPOPoMEol THEN 0 

WRITE (6*93) IC*RCoRDTKo s * 

IF I$YO( 10 ! oEQo To ANDoPOPoNE* 1 THEN WRITE $6*94) IC*RC*RDTKo 0 

0 

INTEGER PROGRAM SWITCHES* FORMAT U5I5D 0 

0 


MOP OOP 10 TOP POP 


1-10 10 

MRsDTUURDTl 1) 9 BS * TO* 8H* FT ON FORMAT (8Fl0o5& IS THE NEXT 0 
DATA CARO* 0 

IF IOPoEQo4 THEN W* D DIG l ) * RDTU * CAN 8E LEFT BLANK \M0FR O 
SOME OPTIONS* 0 

MR 0 


MR*o ^REFERENCE FREE STREAM MACH NUMBER* O 

IF MRoGEo 0 * OR oOOP oLE oO SUBR IWIR COMPUTES ALL U ID FROM 0 
THE MU) DATA INPUT AT THE UU) PLACE IN THE X-STATION DATA 0 
AFTER THE RETURN FROM SUBR COTR* IF ISTOU)oEQo2 THEN SUBR 0 
INIR SKIPS THE TEST TO RETURN ON POPoEQ*! BEFORE THE LISTINGS 
IN ORDER TO LIST THE HEADING* PARAMETERS* fl(I J ? TFU ItUU !» 0 


UNDER THE FOLLOWING CONDITIONS SUBR COTR WILL RESET MR AFTER0 
THE X-STAT I ON DATA READ-S W* * o 0 
IF I DPoEQo ANDoMRo EQo 0*0* AND*DOPoLEoO THEN MR* 0 
IF IOP*NEo4oANDoMR 0 EQoOoOoANDcOOPpLEaO THEN MR* UU)o 0 
IF IQPoEQo7*ANDoU{ 1 )oEQoOoO* ANDoMRo EQ* OoOo ANDoDOPoLEo 0 THEN 0 
MR* oOOl 0 


om) 0 

0T(1 1 o o * Dl S PLACEMENT THICKNESS OR DELTA(0 ) IN THE SAME UNITS AS X*0 
IF IOPoEQ*4 0T( 1 ) IS LATER RESET*OcO AND MT(U*;0o0 IN THE 0 
I OP* EQ*4 SECTION OF SUSR INIRo 0 

IF I OP oEQo7oANDoD7(1)cjEQo Do 0 ON READ 0 1 W SUBR COTR RESETS 0 
DT 1 1 )* *001 0 

ROTU) 0 

ROT* Dooo REYNOLDS NUMBER BASED ON DISPLACEMENT THICKNESS* 0 

IF IOPoEQo^oANDoRDTU&oEQoOoO THEN SUBR COTR RECOMPUTES AND 0 
REALISTS RDT ( 1) * X< 2 ) OU ( 2) 0WSTO5 3 ) * 0 

IF IOPoEQd7oAMDoDOPoGToO*AND ROT ( 1 J * EQo Oo 0 THEN SUBR COTR 0 # 

RECOMPUTES AND RELISTS RDT ( 1 ) * U( i ) 0OT ( i ) /WSTO( 11 ) * 0 


IF lOPoEQo* RDTU? IS LATER RESE7=0 IN THE I0P o EQo4 SECTION 0 
OF SUBR 3MIR AFTER THE RETURN FROM SUBR COTR* ftL-RDTU) 0 
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TABLE VI. - Continued. MASTER INPUT DATA SAMPLE 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 


BEFORE THE RESET. * 

es * 

BS... INPUT FOR THE INITIAL PRESSURE GRADIENT. SEE BS IN THE * 

DISCUSSION OF INPUT VARIABLES. * 

IF 10P.EQ *4* AND.X.EQ.Q .0 • ANO.BS* EQ* 1. THEN SUBR CGTR SETS * 
U(X=Q.O>= 0.0. * 

SUBR COTR RECOMPUTES AND LISTS BS IF I0P.EQ.7. * 

SUBR I NIR RESETS P= BS. * 

TO * 

TO. ..FREE STREAM TOTAL TEMPERATURE IN DEG. K. * 

BH * 

BH» ENTHALPY RATIO. •• ( H { BLE ) T0T-H( REF I ) / HI BLE > TOT * 

7 WORDS. FORMAT (BF10.5) * 


MR * DT < 1 ) * RDT(l) * BS * TO * BH * FT * * 


♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 


L.0000 2 89.0000 1.0000 

IF ISTOU51 .EQ.l THE X-STATION DATA ARE READ IN BY CARDS * 
WITH KXJ* 1,2,3. ..200 ON FORMAT (8F10.5W * 

IF ISTOU5 1.EQ.O THE X-STATION DATA ARE REAO IN BY TAPE 1 * 

AND THE CARO READ-IN INSTRUCTION IS SKIPPED. FOR TAPE I * 

READ-IN THE NUMBER OF X-STATIONS READ IN =* KEND.LE.100. * 

NOTE THAT BEFORE LISTING WE MAY HAVE RESETS OF X,RW ON * 

WST0I5) AND U ON WSTO( 16 ) , WSTOf 8 > . ♦ 

IF LINEAR INTERPOLATION AT THE ORIGIN IS USED SOME OF THE * 

DATA, <X< n,U(I) y RMm), IS REPLACED AND THE NUMBER OF * 

X— STAT IONS IS INCREASED BY I STD ( 81 + 1, BUT * 

IF IOP.EQ.2.3,6,7 SUBR COTR RESETS TOP^O AND TUR8US>*1.0. * 

THE NUMBER OF X-STATIONS THAT WILL BE COMPUTED IS .LE.99. * 

IF TOP.EQ.l AT THE TIME OF THE X-STATION OATA READ-IN THEN * 
ALL TURB( l I ARE RESET * 0.0. * 

IF TURBUl.GE.l THEN ALL TURB ( K I FOR K.GE.l ARE RESET * 1. * 

IF IO.EO.O THEN ALL RWII I ARE RESET = 0*0. * 

THE ORDER OF READ-IN OF 1 LINE OF OATA IS... * 

xm,um # TURBm»GBcm,Rw< n,v wu>,$wu> f cwm. * 

* 

XII) * 

xm« X INPUT AT THE WALL STATION IN AN ARBITRARY UNIT. * 

XII) ON THE LAST X-STATION READ-IN MUST BE .LE.XII-il. * 

Ul I) * 

u C I I = FREE STREAM VELOCITY AT X IN AN ARBITRARY UNIT. * 

IF MR . GE. 0 • OR. OOP .L E.O SUBR INIR COMPUTES U(I) FROM THE MU)* 
DATA INPUT AND THE COMPUTED TF<I| AS DISCUSSED UNDER MR * 
HEREIN. * 

TURBID * 

TUR8UI* 0.0 TO 1.... INDICATES THE FRACTION OF EFFECTIVE * 
VISCOSITY THAT IS TURBULENT. IF TURBU)*0.0 THE EFFECTIVE * 
VISCOSITY IS ALL LAMINAR. * 

SUBR COTR SETS TURB ( K ) = 1 .FOR ALL K.GT.I WHERE TUR8tI)*l. * 

GBCU) * 

GBCII)- WALL BOUNDARY CONDITION ON THE ENERGY EQUA, EITHER * 
G 1 ( WALL ) OR G" (WALL). ..SEE TABLE IV, ALSO MOP HEREIN. * 

RWU) * 

RWm» RADIUS OF BODY SURFACE R( WALL) IN THE SAME UNIT AS X.* 

VWU) * 

VW(I)= TRANSPIRATION VELOCITY IN THE SAME UNIT AS U(X). * 

SEE TABLE IV. ♦ 

SHU) * 

$WU)= NIKURAOSE (REF 151 SANDORA t N ROUGHNESS SCALE IN THE * 
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TABLE VI. - continued. MASTER INPUT DATA SAMPLE 


o 

o 

o 

* 

o 

$ 

o 

$ 

$ 

o 

o 

0 


0* 


SAME UNIT AS X* 


cum 

CHI II* LONGITUDINAL HALL RADIUS OF CURVATURE IN THE SAME 
UNIT AS Ro 

KU) » o CARD 

WHEN THE X-STAT2GW OATA IS READ IN BY CARDS* THE LAST CARD 
IS KEY PUNCHED FOR THE TEST TO SMITCH OUT FROM THE DATA 


READ IN-LOOP* 


X-ST AT ION DATA CARDSocoHCTH 8 HORDSoooON FORMAT (8F1@*SB 
0 * THE A6IR OISCR5M5NATOR CARD* 1ST OF 7 FOR $UBR AMR* 


o 

o 

o 

o 

o 

o 

£ 

$ 

☆ 

& 

o 


DO 

l 2 3 4 5 6 7 8 

12 3456789012 34567 8901 2345678901 2345678901 2345678901 2345678901 2345676 90 1234567 090 
&X{1) o UU) o TURBdl * G8CIU $ RWCU a VMCI1 * SHU I & CWUJ * 

0 « 


RETURNS TO 2WIR FROM A6IR* 


Oo 

0 0 

Oo 

Ooiiei 

Do 0165 

Oo 

0ol916 

Oo0371 

Oo 

0o2*75 

0*0556 

0o 

0o292i 

0*0741 

Oo 

Oo33iO 

0o 0927 

0 0 

0o366S 

0o 1 I 12 

0 0 

0o398B 

0*1297 

Do 

Oq^-278 

Oo 1483 

0o 

Oo<>53T 

0*1668 

Oo 

Oo4753 

Oo 1853 

Oo 

Oo $939 

Oo 2039 

Oo 

0o5l05 

Oo 2224 

Oo 

0<,5257 

0o2409 

Oo 

0o5397 

0 0 2595 

Oo 

Oo5528 

Oo 2780 

0* 

Oo5652 

Oo 2965 

Oo 

Oo5769 

Oo 3151 

0* 

0o588i 

Co3336 

Oo 

0o5968 

Oo 3521 

Oo 

0o6091 . 

Oo 3707 

Oo 

0 o 6l90 

Oo 3892 

Oo 

0o6286 

0*4077 

Oo 

0o&379 

Oo4263 

Oo 

Oo6$70 

Oo 4440 

Oo 

0 o 6572 

Do 4633 

Oo 

0o6677 

0 0 4819 

Oo 

Oo6787 

0*5004 

Oo 

0<>6903 

Oo 5189 

Oo 

Oo?923 

Oo 5375 

Oo 

OoTS.51 

0 0 5560 

Oo 

Oo7287 

Oo 5745 

Oo 

0 o ?$32 

Oo 5931 

Oo 

0o7590 

0*6116 

Oo 

0o7763 

0*6301 

0* 

0..7959 

0*6487 

Oo 

0o8187 

Oo 6672 

Oo 

0o8$?6 

0*6857 

Oo 

0o8B&5 

0*7043 

Oo 

0o9293 

0*7226 

Oo 

0o976l 

0o7413 

0* 
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TABLE VI. - Continued. MASTER INPUT DATA SAMPLE 


1.0205 

0.7599 

0. 

L* i 073 

0.7784 

0. 

1.2552 

0.7969 

0. 

1.6701 

0.8155 

0. 

1.8764 

0.7980 

0 . 

2.0310 

0.7804 

0. 

2.3831 

0.7280 

0. 

2.7353 

0.6846 

0. 

3.0B75 

0.6501 

0. 

3.4397 

0.6242 

0. 

3.7918 

0*6028 

0. 

4.1440 

0.5860 

0. 

4.4962 

0.5738 

0. 

4.8484 

0.5582 

0. 

5.2005 

0.5407 

0. 

5.5527 

0.5237 

0. 

5.9049 

0.5073 

0. 

6.2571 

0.4915 

0. 

6.6093 

0.4761 

0 . 

6.9614 

0.4609 

0. 

7.3136 

0.4458 

0. 

7.6653 

0.4313 

0. 

8.0180 

0.4177 

0. 

9.3701 

0.4047 

Oe 

8.7223 

0.3923 

0. 

9.0745 

0.3805 

0. 

9.4267 

0.3695 

0. 

9© 7788 

0.3592 

0. 

10.1310 

Do 3498 

Oe 

10.4832 

0.3412 

0* 

10.8354 

0.3332 

Oo 

11.1875 

0© 3258 

Oo 

11.5397 

0.3193 

0. 

11.8919 

0.3135 

0. 

12.2441 

0.3087 

Oo 

i 2 o 5 962 

0.3041 

0 o 

12.9484 

0.3001 

0. 

13.3006 

0.2968 

0. 

13.6528 

0.2943 

0„ 

14.0049 

0.2921 

0. 

14.3571 

Oo 2905 

0 o 

14.7093 

0*2895 

0. 

15.0615 

0.2891 

0 . 

15.4137 

0.2893 

0 . 

15.7658 

0.2910 

0 . 

16.1180 

0.2952 

0 . 

16.4702 

0.3019 

0 . 

16.8224 

0.3110 

Oe 

17.1745 

0.3226 

0 . 

17.5267 

0.3366 

0 . 


♦0.0 ♦O.O 

* A6IR. END CASE DATA READ. THE NEXT CARD IS READ IN AT CASE END. A6IR. 

* TO ELIMINATE THE COMMENTS CARDS REMOVE ALL CARDS WITH STARS * 

* IN CARO COLUMN TWO (*) EXCEPT THOSE IMMEDIATELY PRECEEOI NG * 

* A SET OF DATA CARDS WITH THE EXCEPTION THAT THE SEVEN CARDS * 

* IMMEDIATELY PRECEEDING THE X STATION PARAMETER SET OE DATA * 

* CARDS ARE TO BE REPLACED BY A STAR CARO (A * IN CC 2 ONLY) A 

* AND AT LEAST ONE STAR CARD MUST SUCCEED THE STATION DATA * 

* SET. STAR CARDS WILL ALWAYS LIST SINCE COMMENTS CARDS ARE * 

* READ BY SUBR A&IR. OTHERWISE THE INPUT DECK WILL NOT BE * 
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TABLE VI. - Concluded. MASTER INPUT DATA SAMPLE 

* LISTED UNLESS ISTCim.NE.O. THE SIMPLEST CARD THAT CAN BE * 

* USED AS A MARKER CARD IS ONE WITH AN * IN CC2, OR CC1. * 

* NC IS THE NUMBER OF X DATA STATIONS READ IN»CARD OR TAPE, BY* 

* SUBR COTR. NC.LE.200. * 

* KENO IS THE NUMBER OF X OATA STATION POINTS READ IN FROM * 

* TAPE BY SUBR COTR WHICH RESETS KEND*100 IF KENO AS READ FROM* 

* THE TAPE.GT.IOO. * 

* TOP IS RESET=C IF IOP.EQ.2,3, 6, 7. * 

* NOTE THAT IST0I8I* 2 TO INCLUDE A LINEAR SECTION. * 

* END OF CASE. 

change appreciably as the calculations proceed downstream since r} is normalized 
with 6 *. Smaller 77 spacing will be required throughout the layer if a very small x 
step size is used. 

The specification of the f t (t 7 ) and profiles depends on whether these profiles 

are used as the starting profiles or the input profiles are recalculated. H the input 
profiles are to be used as specified, they should be compatible with the initial pressure 
gradient. For turbulent flow the profiles must be well defined in the M law -of -the -wall” 
region. This region can often be specified by using some empirical "law of the wall". 
If the input profiles are recalculated, the initial profiles need not be very accurate 
since the calculated profiles usually converge very rapidly to their final value for al- 
most any reasonable input profile. 

Specification of x-step size . - The sequence of the x-values defines the x-spacing 
at which calculations will be performed. The x-step size depends on the input station 
Mach number or velocity distribution. The x-step size should be inversely propor- 
tional to the magnitude of the slope of the velocity distribution. For large velocity 
gradients the x-steps must be very small. The numerical examples illustrate realistic 
x-step sizes for accurate results. 

The x-step size is most sensitive at the start of the boundary layer growth. How- 
ever, if the slope of the U(X) as a function of x curve is linear, larger x-step sizes 
can be taken. The input options ISTO(8) and ISTO(9) can be used to modify input 
x-station data to include a linear section at the start of the boundary layer growth. 

Instructions for linking with another program . - The TUF set of decks headed by 
the main routine TUF can be tied to another program to be titled TRIR(XMAS) which 
will compute and store on tape 1 the x-station data to be used by the TUF set of rou- 
tines. To tie in the TUF set of decks, the main program of TUF remains the same ex- 
cept that a card containing subroutine TUFL(KSTOP,XMAS) is placed behind the 
$IBFTC card of the main routine TUF. Let the main routine using both supervisory 
subroutines TUF L(K STOP, XMAS) and TRIR(XMAS) be titled COSY. Then COSY can 
have a blank common which is set equivalent to the KSTOP array of subroutine 
TUFL(KSTOP,XMAS) where the blank common of COSY is also the blank common of 
subroutine TRIR(XMAS). The array XMAS is dimensioned the same for COSY, TRIR, 
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TABLE VII. - EXAMPLE OF UNKING TUF TO ANOTHER PROGRAM 


$1 0FTC COSD DECK, LI ST 

C COSY IS THE MAIN ROUTINE FOR THE MAIN SUPERVISORY SUBROUTINES... 

C TRIR WHICH PROVIDES X(tT,9(II CR KUI, ANO RW(I> FOR THE 

C BOUNDARY LAY'ER SUBROUTINE TUFL, AND 

C SUeR TUFL WHICH USES THE BLANK COMMON OF COSY AS THE KSTOP ARRAY. 


CCMMON NTO< 21 ,NP0(2> ,NHBMXO 
DIMENSION K STOP ( 5> , XMAS ( 10 1 
EQUIVALENCE (KSTOPl 51 ,NHBMXO> 


C TFE OUTPUT DATA OF SUBR TRIR IS PUT ON TAPE 1. 

REMIND 1 

CALL TRIR < XMAS I 

C TFE BOUNDARY LAYER SUBROUTINE. 

CALL TUFL (K STOP, XMAS) 


CALL EXIT 
STOP 

ENC 


and TUFL. The main routine COSY then calls subroutine TRIR(XMAS) followed by a 
COSY call of subroutine TUFL(KSTOP, XMAS) to get the boundary layer solution. If 
storage is limited, the same overlay origin can be used before both the subroutine 
TRIR and the subroutine TUFL sets of decks. A second overlay origin can be placed 
before each of the decks of the subroutines INIR, ITFR, ITSR, and NDIR which are 
loaded in the order shown in the program listing. Also, such blank common not needed 
for both sets of decks TRIR and TUFL can be labeled. An example of the COSY kind of 
routine is shown in table YU. 


Output Variables 

The primary output from the calculations is a list of the calculated profiles and 
parameters that is printed out at each x- station. Most of the output is optional and is 
controlled by the input ISTO array. Definitions of the output variables that are not 
defined elsewhere are given here. 

Principal boundary layer parameters . - The following principal boundary layer 
parameters are listed in the program output: X, DT, MT, IIT, SF, CF, ST, GPW, 
RDT, U, M, TURB, RW, VW, SW, and CW. These parameters are all defined in the 
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Common Arrays section. The output of the x-station dimensional variables are in the 
same units as the input x-station variables. 

Profile parameters. - The following momentum and energy profile parameters are 
listed in the program output; J, YY, U/U(BLE), F, FP, FPP, D, GP, and GPP. All 
of these variables are defined in the Common Arrays section except J and U/U(BLE), 
which are as follows: 

J Index of eta profile point. 

U/U(BLE) Ratio of velocity in boundary layer to velocity at boundary layer edge, 
D(J)*(1. -FP(J)). 

Transition parameters . - The transition parameters that are printed out and de- 
fined in the Common Arrays section are IC, RC, FT, RMX, RMTW, RMT, and RDTK. 
The other transition parameters are defined as follows: 

RSR Function characteristic of effect of surface roughness. 

RRR Function characteristic of effect of surface curvature. 

RTR Function characteristic of effect of free -stream turbulence. 

RD Final value of RD is a function characteristic of effects of pressure gra- 

dient, surface roughness, surface curvature, and free-stream turbulence. 

RRCD RMC/RMTW 

RRFT RMC/RMT 

DRDC RDTK-RC 

DRMI RMTW-RMC 

DRM2 RMTW*MT(I+1)/MT(I) -RMT 

Momentum and energy balance parameters. - Under the output heading INTEGRALS 
OF MOMENTUM AND ENERGY are listed the values of COFl and COF2 for the mo- 
mentum balance and the values of COG1 and COG2 for the energy balance. Both 
COFl and COF2 are defined by equation (11-21), and COGl and COG2 are defined 
by equation (11-23). The other balance parameters are defined as follows; 

R21F COF2/COF1 

R21G COG2/COG1 

ITP Number of iterations in momentum and energy loops. 

General parameters . - The general parameters that are listed in the output are 
IVEL, VE(1), VEG(l), VHP(l), VH(1), HR, PR, PRT, SHR, XNOD, I(X), JE, and 
ISTO(IO), The parameters VE, VEG, VHP, and VH are defined in the Common 


127 



Arrays section. The parameters JE, PR, PRT, SHR, I(X), and JE are defined in 
the Single Word Common Stores section. The other variables are defined as follows: 

IVEL Code to tell what correction is included in calculation of effective viscosity. 

XNOD If XNQD.NE.X, XNOD=X(I)/WSTO(10). 

ISTO(IO) Code number to indicate in which subroutine the profiles are last computed. 


Numerical Examples 

To illustrate the use of the program and the results obtained, two numerical exam- 
ples are given. The first example is a flat plate, and the second is an inlet diffuser. 
For both examples the boundary layer is calculated in the laminar, transitional, and 
turbulent portions of the flow. 

Flat plate . - The first example is a flat plate with a slightly tapered leading edge. 
The input for the example is given in table Vin. The boundary layer is calculated 
from the stagnation point at the leading edge of the plate to an x of 6. 9 centimeters 
(2.7 in. ). The starting velocity profile in table VIH is used by the program to calculate 
a Blasius profile at the leading edge (BS = 0, 01). The index for the x -station data is 
denoted by IS. There is a total of 80 x-locations for this example. 

Sample output for this example is given in table IX. Most of the output is optional 
and is controlled by the input ISTO ARRAY. The output that is illustrated corresponds 
to the following description: 

(1) Profiles and parameters at a nondimen sional x = 0. 0025 

(2) Transition statistics and profiles at nondi men sional x = 0. 80 and x = 0.85 

(3) Summary of boundary layer parameters 

(4) Momentum and energy balance ratios 

Examination of the summary output indicates transition to fully turbulent flow 
occurs at a nondimensional x value of 0. 42. The fully turbulent point corresponds to 
the first x-value where TURB(I)=1. 0. The experimental transition was found to occur 
at a nondimensional x of 0. 46. In general, good momentum and energy balances were 
obtained for the chosen x -stations for this example. 

Execution time for this example was 2 minutes on an IBM -7094/7044 direct-coupled 
system. 

Inlet diffuser . - The second example is an inlet diffuser. The geometry is de- 
scribed in detail in reference 16 (diffuser identification number, 10). The input for the 
diffuser example is given in table X. The boundary layer is calculated from the stag- 
nation point on the inlet lip (x - 0) to the diffuser exit at an x of 44. 6 centimeters 
(17. 52 in. ). The starting velocity profile in table X is used by the program to calcu- 
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late a Falkner-Skan laminar wedge flow solution for a starting profile (BS= 1.0). For 
this example a linear section of x- station data was calculated by the program. (Note 
ISTO(8) and ISTO(9) both equal two). There is a total of 95 x-locations for this exam- 
ple. There is a small x-step size in the region of large Mach number gradients to im- 
prove the accuracy of the computations. 

Sample output for the inlet diffuser example is given in table XI. The output that is 
illustrated corresponds to the following description: 

(1) Profiles and parameters at a nondimensional x = 0. 0412 

(2) Transition statistics and profiles at a nondimensional x= 0. 7287 and 

x » 0. 7432 

(3) Summary of boundary layer parameters 

(4) Momentum and energy balance ratios 

Execution time for this example was 2 minutes on an IBM-7094/7044 direct- 
coupled system. 


Discussion of Problem Difficulties 

The main accessary source of information when either a difficulty appears or an 
unexpected transition to turbulent flow occurs is table VI. Table VI can be used as an 
input data deck. H so used, it contains both comment, which is always listed, and the 
case numerical data, which is listed when ISTG(1).NE. 0. Hence, table VI when used 
as an input deck can become a convenient diagnostic aid when the case being computed 
is aborted. If a difficulty appears, which may not end the case with a machine diag- 
nostic, then the comment on ISTO(IO) in table VI can be used to connect the case list- 
ing with the source program. After the probable location of the difficulty is located, 
subroutine FILE can be used to list complete prof iles by setting ISTO(7)=I(X) the index 
of the desired x-station to be listed. 

If it is desired to study the viscosity and conductivity profile wall values of sub- 
routine VIS and the transition statistics of subroutine ITSR and of subroutine TRANS 
on TOP.EQ. 1, then set ISTO(5).NE. 0. The telltale word IVEL, which appears in 
the subroutine VIS listing, can be used as a diagnostic aid to determine the sequence of 
formulas used in computing the viscosity and conductivity profiles. Unlike ISTO(7), 
which causes a list for only the selected x-station, ISTO(5).NE. 0 causes a list at each 
x-station succeeding the first. To differentiate the listing by subroutine TRANS from 
that of subroutine ITSR, the heading of the subroutine TRANS listing carries the label 
TRANS. Also ISTO( 5) with the integer printout switch POP lists additional informa- 
tion as summarized by table VI. 
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TABLE VUL - INPUT FOR FLAT PLATE 


FKT8R IN f R AT 0. SEC* 

• I ST 0 1 K > * Ks 1,15 

12 4 111 

* tfSTOlK), *•= 1*2 0 

0.94990000**00 0-30000000E+03-0- 


- 0 - - 0 . 

G. 15640C00E-G3 0. 

0 . - 0 * 


- 0 . 

-o. 


LABEL ( K > » K-1,18* OW FORMAT W8A4) , 
PLAT PLATE 


FORMAT ( 1515 > 

0 1 0 0 0 0 
FORMAT i 5E15.3 > 

- 0 * - 0 * 

— u* -o. 

0« 90000000 E+00“0* 

- 0 . - 0 * 

THE X-ST ATI ON HEADING* 
FLAT PLATE 


JD IV 


FORMAT ( 1515 ) 


m 2 
C * 

0*09999999 
C .220 00000 
C *3 AC COO 00 
€*52000000 
c.aocooooc 
j.aooooooo 


36 

uoocooooc 

0.92600000 
0 .55500000 
C. 20800000 


JV £N FORM AT 11515) THEN YYU), 
165* 4* 

0 * 01000,000 
0 * 120 GOOOO 
0 ♦ 239 59999 
0*36000000 
0*56000000 
Q.9C0CCQQQ 
2. 19959959 
JEF CN FORMAT (1515)- THEN FP(J|, 
141* 4* 

0* 99800000 
0.85500000 
0*50500000 
O.lMCOOGO 


J-l ? J Y CN FORMAT (6F10-5) 


0*02000000 
0. 14000000 
0*26000000 
C. 38000000 
0*60000000 
1*00000000 
2*59999959 


C. 59600000 
0.78900000 
0*45699999 
C*l2300a0Q 


0*04000000 
0* 16000000 
0*26000000 
0*40000000 
0*64 000000 
1*20 COQ300 
3.00000000 


0*05999999 

0.18000000 

0.30000000 

0*44000000 

0.68000000 

1.40000001 

3.59999999 


J-l.JEF ON FORMAT (cFlO.5) 


0.99200000 

0*72600000 

0*41300000 

0*05880000 


0*98500000 

0.66600000 

0*33300000 

0.02609999 


0*08000000 
0*20000000 
0.32000000 
0. 40000000 
0-72000000 
1.59999999 
4.19999999 


0*56200000 

0.60900000 

0*26500000 

0*01080000 


0*00426999 0*00161999 C.C0C607G0 


0*00 022899 

0.Q0QC895Q 

0.00003660 




€*00001510 0*00000656 0-00000316 


0*03 000144 

0*03000062 

0.00000022 





AEG CN FORMAT (1515)* THEN GPiJI* J 

= 1 ♦ J EG CN FORMAT (6F10.5) 



l 


t 

21* 

4 . 









-0* 

-0* 


-0* 

- 

0- 

-0* 

—0* 




IGF MOP 

OOP 10 

TOP 

POP 






1 


4 1 

1 o ■ 

1 

L 








MR 4 

ETUI * 

RCT i 1) ♦ fiS * 

TO 

* 8H 

♦ FT * 



l 


fc46000-C 

>. 

1004 

•00 0.0100 295.2300 1*0000 

1 “0. 






X-STAT ION 

DATA 

CAROS.. .WITH 8 WORDS 

, *« *oa format 

(8F1Q-5) 



1 


0. 

7 52 * 60 CO 0 

0. 

-0. 

0. 

-O* 

-3* 

-o. 

IS* 


1 

0.00250 

753.68000 

0. 

-0* 

0. 

-0* 

-0. 

-0* 

1S = 


l 

0.00500 

754.76000 

0. 

-0* 

0. 

-0. 

-0. 

-0* 

I s = 


3 

0.00750 

755*84000 

0. 

-0. 

Q. 

-0. 

-o. 

-0* 

IS- 


4 

0*01000 

756.51000 

0* 

-0. 

0. 

-0. 

-0. 

-0. 

IS- 


5 

0.01500 

155.C7000 

0* 

* 0. 

0* 

-0. 

-0. 

-0. 

IS- 


6 

0*02000 

761.23000 

0. 

-0. 

0* 

•0* 

-0* 

-o. 

IS- 


7 

0.03000 

765.54000 

0. 

-0. 

0* 

-0* 

-0. 

-0. 

IS- 


0 

0.04000 

764.85000 

0. 

*0. 

0# 

-0. 

-a* 

-0. 

IS- 


9 

C.G5000 

774.17000 

0. 

-0. 

0* 

-0. 

-o. 

-0. 

IS* 


10 

0.06000 

778.48000 

0* 

-0* 

0* 

-0. 

— 0 • 

-0. 

IS- 


U 

0.07000 

782.79000 

0. 

-0. 

0* 

-0. 

-0. 

-0. 

IS* 


12 

0.08000 

787.11000 

0. 

-0. 

0. 

-0. 

-a. 

-0. 

IS- 


13 

0.09000 

791.42000 

0. 

-0. 

0. 

-0* 

-0. 

-0. 

IS* 


14 

0.10000 

755.73000 

0. 

-0. 

O'. 

•0* 

-0. 

-0. 

IS- 


15 

0. L LOGO 

800.05000 

0. 

-0* 

0. 

-0. 

-0. 

-0* 

IS* 


16 

0412000 

804.36000 

0. 

-0. 

0* 

-Q. 

-0* 

-o. 

IS- 


IT 

0.13000 

808.67000 

0. 

-0. 

0. 

-0* 

-o. 

-0. 

IS* 


18 

0.14000 

812.99000 

0. 

-0* 

u. 

*o. 

-o. 

•0* 

IS* 


19 

0.15000 

817.30000 

0. 

-0. 

0. 

-0. 

-0. 

-0* 

IS* 


20 

0.16000 

82J. 61000 

0. 

-0. 

0. 

-o. 

-0* 

-0* 

IS* 


21 

0.17000 

825.93000 

0. 

-0* 

0. 

-o. 

-0. 

-0. 

IS- 


22 

0.18000 

830.24000 

0. 

*0. 

0. 

-0. 

-0. 

—0* 

IS* 


23 
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TABLE vm. - Concluded. INPUT FOR FLAT PLATE 


0*19000 

634*55000 

0* 

- 0 * 

0* 

-0* 

-0. 

-0* 

IS* 

24 

0*20000 

838*67000 

0* 

- 0o 

0* 

-Oo 

“Oo 

-Oo 

IS* 

25 

0*21000 

843* BflOOO 

0 . 

-0* 

0. 

-0* 

-0* 

“Oo 

IS= 

26 

0o22000 

847*49000 

0* 

“Oo 

0* 

-0* 

0 

-0. 

I S* 

27 

0*23000 

851*81000 

0* 

-a* 

0* 

-0* 

-0 0 

-Oo 

IS* 

28 

0*24000 

856*12000 

0* 

-0 * 

Oo 

-0* 

-0* 

“Oo 

IS* 

29 

0 o 2 5000 

86C.43000 

0* 

- 0 . 

0 0 

-0« 

-0* 

“Oo 

IS* 

30 

0*26000 

864*75000 

0 . 

-Oo 

0* 

-Oo 

-0* 

-0. 

IS* 

31 

0*27000 

865.C6000 

0* 

-0* 

0 * 

-0* 

“0* 

-Oo 

IS* 

32 

0*28000 

873*37000 

0* 

, - 0 . 

0 * 

- 0 * 

—0* 

-Oo 

IS* 

33 

0*29000 

677*69000 

Oo 

-a* 

0* 

-0* 

-0* 

-Oo 

IS* 

34 

0o30000 

682*00000 

0* 

- 0 . 

0 . 

-0* 

-Oo 

-0. 

I s= 

35 

0.320 0C 

666*00000 

0. 

- 0 . 

0 . 

-0. 

“0. 

-0* 

I s= 

36 

0*34000 

689*00000 

0* 

-0* 

0. 

—0 * 

“Oo 

-0. 

IS* 

37 

0 *360 00 

852*00000 

0* 

—0 * 

0* 

—0 * 

-Oo 

-0* 

IS* 

38 

0*38000 

854.00000 

0* 

-0. 

0* 

— 0 * 

“Oo 

-Oo 

IS* 

39 

a. 40000 

857*00000 

0* 

— 0 * 

0* 

-Oo 

-0* 

-0* 

IS- 

40 

0*42000 

85 6 .COOOO 

0* 

-G* 

0* 

-0* 

— 0 a 

w 0 0 

IS* 

41 

0*44000 

500 * COOOO 

0* 

-0. 

Oo 

- 0 . 

~0 0 

-Oo 

IS* 

42 

0*46000 

902*00000 

0* 

- 0 * 

0. 

-0. 

-Oo 

-0. 

IS* 

43 

0*48000 

404*00000 

0. 

-0* 

0. 

- 0 . 

- 0 . 

-0. 

IS* 

44 

0*50000 

9C5. 00000 

0* 

-0* 

0. 

- 0 . 

—0 0 

-0. 

IS* 

45 

C *520 00 

404*00000 

0* 

-0. 

0* 

-0* 

-Oo 

-0. 

IS* 

46 

Q.540CC 

903.00000 

0* 

- 0 . 

0* 

—0* 

-0 * 

- 0 . 

IS* 

47 

0-560 00 

902*50000 

0. 

- 0 . 

0* 

—0 * 

-0. 

-0. 

IS* 

48 

0*58000 

9Q2. COOOO 

0* 

- 0 . 

0. 

- 0 . 

-0* 

-0. 

IS* 

49 

0*60 000 

901*50000 

0* 

- 0 * 

0* 

- 0 . 

-0* 

-0. 

IS* 

50 

C.62G0G 

401*00000 

0 * 

-Oo 

(Jo 

“Oo 

“Oo 

- 0 . 

IS* 

5 1 

0*64000 

900*50000 

0* 

-c. 

0 . 

- 0 . 

-0. 

-0. 

I s = 

52 

0*66000 

9CC. COOOO 

0* 

- 0 . 

0 . 

-b* 

. -0. 

-0. 

IS* 

53 

0.68000 

896.50000 

0 . 

-On 

■ 0* 

-0. 

-Oo 

-0. 

IS* 

54 

A® 70000 

8 S 60 COOQO 

0* 

-0* 

0. 

-0. 

-0. 

-0* 

IS* 

55 

C *75000 

855*00000 

0* 

- 0 . 

0. 

- 0 . 

- 0 . 

-0. 

IS* 

56 

0.80000 

840.00000 

0* 

-c. 

0 . 

-On 

-0. 

-Q. 

IS* 

57 

C.8500C 

886. COOOO 

0. 

-0* 

0* 

-0* 

-0. 

-0. 

IS- 

58 

OoSOOOC 

882.OQCQ0 

a* 

-Oo 

0* 

-0. 

-0. 

-0* 

IS* 

59 

0 * 5 500C 

677*00000 

0* 

-0. 

0* 

- 0 . 

-0. 

-0* 

IS* 

60 

1.00000 

872*00000 

0* 

-0* 

3. 

- 0 . 

-0. 

-a. 

IS* 

61 

1 *05000 

667*00000 

0 . 

- 0 . 

Oo 

“0. 

- 0 . 

-0. 

IS* 

62 

1*10000 

862.COOOO 

0* 

.-Oo 

0 . 

-0* 

-0. 

-0. 

IS* 

63 

1*15000 

857.00000 

0 *' 

— 0 * 

0. 

-0* 

-0* 

-Oo 

IS- 

64 

1*20000 

8 51. COOOO 

u.. 

-0* 

;0* 

“Oo 

-0. 

- 0 . 

IS* 

65 

1 .30000 

842 * GC 000 

0 0 

-0. 

bo 

“0. 

- 0 . 

-0. 

IS* 

66 

1 .40000 

833.00000 

0- 

- 0 * 

0* 

-0* 

-0* 

-0. 

IS* 

67 

. 1.50000 

826. COOOO 

0. 

-0. 

0 . 

-Oo 

-0* 

-0. 

IS* 

68 

1 *60000 

82 1.00000 

0. 

-0. 

0 . 

-0* 

“0. 

-Oo 

IS* 

69 

1.70000 

817*00000 

Q* 

—0 * 

0* 

“0 . 

-3* 

-0. 

IS* 

70 

1.8000C 

ai5*ocooa 

0 * 

— 0 * 

0 0 

-0. 

“0. 

-Oo 

IS- 

71 

1.90000 

812*00000 

0. 

-Oo 

0* 

-0* 

-0. 

-0. 

IS* 

72 

2*00000 

dio.ocooa 

Oo 

-0* 

0* 

-0* 

“Oo 

-Oo 

IS* 

73 

2 .10000 

8C fioCQOOO 

0* 

-o* 

0 . 

- 0 * 

-On 

-0* 

IS* 

74 

2 *20000 

806.00000 

0* 

- 0 . 

0 . 

-0. 

-0. 

-0. 

IS* 

75 

2*30000 

805*00000 

0* 

- 0 * 

0 . 

-0. 

-0* 

-Oo 

IS- 

76 

2.4000C 

8C6.COOOO 

0* 

—o. 

u* 

-0. 

-0* 

-Oo 

IS* 

77 

2 .5000 ( 

8CF.OOCOO 

0* 

-0* 

0* 

-0* 

-0* 

-0. 

IS- 

78 

2*60000 

811*50 000 

0 . 

- 0 . 

0 . 

-0. 

-0. 

-0. 

IS* 

79 

2.70000 

615.COCOO 

0. 

- 0 * 

0. 

-0. 

-0. 

-0. 

IS* 

60 

0* 

-0. 

0* 

-0* 

0* 

- 0 . 

-0. 

-0* 

IS* 

81 

FNO CF CARC 

1 READ 

NO* OF X 

ST AT IONS- 

00 LUST * 

TO BE 

CdHPJTE0= 

0.27000000E+01 

LAST X- 0. 


PK* 6.S6000COE-01 DT(1)=-Oo R OT t l ) * 1. 0040000E+03 BS* 1 •OOOQOOOE-02 IT* 133 NC- 81 K’iN3= 0 

fcSTOdQl* 2 • 7 OOU 000 E + 00 NO. OF X- ST ATI ON POINTS INCREASE- 0 

* 1 
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TABLE IX. - OUTPUT FOR FLAT PLATE 
(a) Profiles and parameters at X = 0. 0025 

BCUNDARY LAYER PROFILES FQfi 

FLAT PLATE FLAT PLATE 


I S 

0*0025 


U = 

753*680 Q 

*70 ROT = 6*016+01 





TUftB *0. 

Rw = 0* 


Vw =-0 • 

SH *-0. 

cw =-0, 




OT 

- 1*506-04 MT = 

5*146-05 HT = 

0 

. SF * 2. 

91E+00 CF ^ 2.196- 

02 ST *-0 . 





HR = 1 

* 006+00 PR * 

7 

obOE-Oi PRT * 

9.006-01 SHR » 

1-40 



X- 

0*0025 XNno=i 

0*0009 IUI« 2 JE = 

165 ISTOtlO)= 

2 




a 

YY 

L/LH6LE) 

F 


FP 

FPP 

D 

GP 


t 

0* 

0* 

0* 


l.OOOOOOOE+OO 
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TABLE IX. - Continued. OUTPUT FOR FLAT PLATE 


(b) Transition statistics and profile at X = 0. 80 and Xa 0.85 
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TABLE IX. - Continued. OUTPUT FOR FLAT PLATE 
<c) Nummary of boundary layer parameters 
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0.0481 5 

0.000958 

0.000338 

Q. 

2.631 

0.003/1 

c# 

0. 

404. 

806.6 70 

0.750 

0*003 

0. 

-0. 

- 3. 

- 3- 

0.05185 

0.000966 

0.000 349 

0. 

2.626 

0.00363 

c. 

0. 

417. 

812.990 

0.754 

0.003 

0. 

*0. 

-0. 

-0. 

0. 05556 

C.OOIOI 2 

O. 000359 

0. 

2.622 

0.00355 

0. 

0. 

429. 

817.300 

0*758 

0.003 

0. 

-0. 

-0. 

-0. 

0.05526 

0.001037 

0.000368 

0. 

2.618 

0*00346 

0. 

0. 

441. 

621.610 

0.762 

0.003 

0. 

-0. 

-0. 

'0. 

0.06/96 

0.001061 

0*000377 

0. 

2.614 

0. CO 342 

0. 

0. 

453. 

825.930 

0.766 

0.003 

0. 

-0. 

-0. 

-o. 

0.06667 

0.00X063 

0.000 365 

0. 

2-811 

0.00336 

0. 

0. 

464. 

830.240 

0-770 

0-003 

0. 

-o. 

-0. 

0. 

0.C7037 

O.CiOl 105 

0.000393 

0. 

2.608 

0.00331 

0. 

0. 

475. 

834.550 

0*774 

0.003 

0- 

-0. 

-0. 

-o- 

0.01407 

0.001125 

0.000401 

0* 

2.605 

0.00326 

0. 

0. 

485. 

838.870 

0-778 

0.003 

0. 

-0. 

-0. 

-0. 

0.07778 

0.001145 

O.CC040S 

0. 

2.802 

0.00322 

0. 

0. 

495* 

643*100 

0*782 

0-002 

0* 

-0. 

-0. 

*0. 



TABLE IX. - Continued. OUTPUT FOR FLAT PLATE 
(c) Continued. Summary of boundary layer parameters 


PRINCIPAL &QUUDARY l AVER PARAMETERS POft 
FLAT PLATE FLAT PLATE 


X 

DT 

HI 

HI 

SF 

OF 

ST 

GPU 

ROT 

0 

H TURB 

RW 

vw 

SM 

cw 

O.C0 148 

0.001163 

0.GCQ116 

0. 

2 . 86 C 

0.00318 

0- 

0. 

505. 

847-490 

0.786 0.002 

0* 

-3. 


-3. 

0. Of 519 

0.0011 81 

0.0C0422 

o. 

2.796 

0.00314 

0. 

0. 

514. 

051.810 

0,790 0.002 

0. 

-0. 

-0. 

-0* 

0.00009 

Q.O01199 

0.000429 

o. 

2.796 

0.00311 

c. 

0. 

524 - 

0 56*120 

0.794 0-002 

0. 

- Q* 

-o. 

-0. 

0.0S259 

0.0012 16 

0.000435 

0. 

2.794 

0.00307 

a. 

0. 

533. 

860 .430 

0.798 0.002 

o. . 

-0. 



0.CS610 

0.0 01 23 2 

0.000441 

a. 

2.793 

0.00304 

0. 

0. 

541. 

064.750 

0.802 0.002 

0. 

-0. 

-0. 

-0. 

0. IOC JO 

0.001247 

0.0C0447 

a. 

2-791 

0.00301 

a. 

Q. 

550- 

869.060 

0.806 0.002 

o. 

-0. 

-0. 

-0. 

C. 1 037 0 

0.001262 

0 .000 452 

o. 

2.790 

0.00298 

0. 

0. 

558. 

073.370 

0.810 0.002 

0. 

-o. 

-0. 

-0. 

0. 10741 

0.001277 

0.000458 

0. 

2.739 

0.00296 

0.. 

0. 

566 ♦ 

077.690 

0.814 0.002 

0. 

-0, 

-0. 

-0. 

0. 1 11 11 

0-001292 

O.O0C463 

o. 

2.791 

0.00287 

0. 

0. 

575. 

832.000 

0*818 0.002 

o. 

-0. 

-0, 

-0. 

a.i 1052 

0.001370 

0,000481 

o. 

2.840 

0.00257 

0. 

o. 

6LI- 

836,000 

0.021 0.002 

0. 

-0. 

-0. 

-0. 

0.12593 

0. CO 142 6 

0.0 CO 499 

0. 

2.058 

0.00241 

0. 

0. 

637. 

889.000 

0.624 0.010 

0. 

-0* 

-o. 

-o. 

0.13333 

0.001463 

0.000515 

0* 

2.87 9 

0.00229 

a. 

0. 

664 • 

892-000 

0-827 3.013 

0- 

-o. 

-0. 

-0. 

0. 14C74 

0.001541 

O.0C0533 

0. 

2.893 

0.00222 

o. 

0. 

691- 

894.000 

0.829 0.014 


-0. 

-o. 

-0. 

0.14815 

0.001583 

0.000547 

0. 

2.89 7 

0-00213 

0* 

0. 

711. 

897-000 

0. 831 0.020 

o. 

-o. 

-0. 

'0. 

0.15556 

C. DQ1634 

O.OC0565 

0* 

2.89 2 

0.00205 

0. 

0. 

734. 

898.000 

0.832 0.013 

0. 

-o. 

-0. 

-0. 

C. 1L296 

0.0Q16A1 

0.0CC580 

0* 

2.900 

0.00 20.1 

0. 

0. 

757. 

900.000 

0.834 0.032 

0. 

-0. 

-0. 

-o. 

0. 17037 

0.001719 

0.000594 

0. 

'2. 094 

0.00198 

0. 

0. 

775. 

902.000 

0.836 0-021 

Q. 

“0. 

-0, 

-0. 

C. 17778 

0.001754 

O.0C0608 

0. 

2.886 

0.00192 

0. 

0- 

792. 

904.000 

0.838 0.021 

0. 

- o. 

-3. 

-3. 

0. 18519 

c.ocien 

0 .000623 

0. 

2.905 

0.00177 

0. 

o. 

818. 

905.000 

0.839 0.021 

o. 

-o. 

-0. 

-0. 

0. 15259 

0.001890 

0.000644 

o. 

2.936 

0-00165 

0. 

0. 

853. 

904 . 000 

0.838 0.037 

0. 

“0* 

-0. 

-0. 

C.20COO 

0.001 908 

0.000663 

0. 

2.876 

0.00169 

0. 

0* 

860. 

903.000 

0.837 0*115 

0. 

-o. 

-0. 

-0. 

0.20741 

0.001926 

0*000682 

0. 

2.823 

0.00177 

0. 

o. 

866. 

902.500 

0.837 0.L19 

0. 

“0. 

-0. 

-0. 

0.2 1481 

0.001946 

0.000 702 

o. 

2.774 

0.00179 

o. 

0. 

077. 

932.000 

0.836 0.100 

3. 


-0. 

-0. 

0*27222 

0.001586 

0.00C721 

0. 

2-757 

0.00178 

0* 

0. 

895. 

901.500 

0.836 0.109 

0. 

-0. 

-0. 

-0. 

0*22563 

0*002021 

0.000741 

0. 

2.729 

0.00170 

0* 

0. 

910. 

901.000 

0-635 0.121 

0. 

-0. 

-0. 

-0. 

0.23104 

0*002054 

0. 0(0760 

0* 

2.702 

0.00179 

0. 

a. 

925- 

900.500 

0.835 0.129 

5. 

-0* 

-a. 

-o. 


CO 

C71 



CO 

OS 


TABLE IX. - Continued. OUTPUT FOR FLAT PLATE 


(c) Continued. Summary of boundary layer parameters 

PRINCIPAL BOUNDARY LAYER PARAMETERS FOR 


k 

OT 

FLAT 

MT 

PLATE 

HT 

Sf 

CF 

ST 

GPW 

FLAT PLATE 
ROT U 

M 

TUR6 

RW 

vw 

sw 

cw 

0.24444 

0*002084 

0.OCC780 

0. 


2.673 

0*00176 

0. 

0. 

936. 

900.000 

0.834 

0.138 

0. 

-0. 

”3* 

-0. 

C-25J05 

0.002132 

C.CC06C3 

0. 


2.657 

0.00177 

o. . 

0. 

959. 

898.500 

0.833 

0.148 

0. 

-0. 

-o. 

-o. 

0.25926 

0.002104 

0.000823 

0. 


2.556 

a. 00196 

0. 

0. 

946* 

896.000 

0.832 

0.268 

0. 

-0. 

-0. 

“0. 

0.27778 

0.002242 

0.CCC662 

0. 


2.542 

0.00183 

c. 

0. 

1006. 

695-000 

0.830 

0.156 

0. 

-3. 

-o. 


0*256*0 

0*002291 

0.CC0S51 

0. 


2.409 

0. 0021 1 

o. 

o. 

1025. 

890.000 

0.825 

0.333 

0. 

-0. 

-o. 

-o. 

0- 31401 

C. 002334 

0.001026 

0. 


2.276 

0.00250 

0* 

o. 

1041. 

886.000 

0.821 

0.451 

0. 

-0. 

-0# 

'0. 

0.333*3 

0.0C2438 

0.001 106 

0. 


2.200 

0.00269 

0. 

0. 

1004* 

862.000 

0.618 

0.502 

0. 

-0. 

-o. 

-3* 

0.35185 

C.OQ2563 

0.0CL2C1 

0. 


2.134 

0.00207 

o. 

0. 

1136* 

877.000 

0.813 

0.592 

o. 

-o* 

-o. 

"0- 

C.31C37 

C.QQ77Q2 

0*001301 

0. 


2.07 7 

0.03305 

o. 

0. 

1193. 

672.000 

0-808 

0.668 

0. 

-0. 

-0. 

-0. 

0. 38889 

0;OC2659 

0.00140b 

0. 


2.034 

□. C03 l 7 

c. 

0* 

1256. 

867.000 

0.804 

0.732 

0. 

-0. 

-0. 

“0. 

C.4C?<1 

0.003028 

0.001516 

0. 


1.9V7 

0.00328 

0. 

o. 

1326. 

062.000 

0.799 

0.792 

0. 

-0. 

-o. 

-o. 

0.42593 

C. 00310? 

0.001634 

0. 


1.950 

0.00366 

c. 

0. 

1393. 

857. OOJ 

0.794 

1.000 

0. 

-0. 

- 0 * 

‘0. 

0.44444 

0.003401 

0.001767 

0. 


1.924 

0.00370 

o. 

o. 

1480. 

851.000 

0.789 

1-000 

o. • 

-0. 

-o. 

'0. 

0. 48148 

0.0C3821 

O.OC2C20 

0. 


1.891 

0.00362 

0. 

0. 

1652. 

B 42. 000 

0.780 

1.000 

0. 

-0. 

-0. 

-0. 

0.51852 

0.00426 2 

0.002276 

0* 


1.070 

0.00353 

c- 

0. 

1630. 

833.000 

0.772 

1.003 

3. 

-3. 

-0. 

- 0 - 

0.55556 

C. 004670 

0.002523 

0. 


1.051 

0.00347 

0. 

Q . 

19 94. 

826.000 

0.766 

1.000 

0- 

-0. 

-o. 

-o. 

0*55259 

0*005050 

0.002750 

0. 


1-037 

0.00342 

0. 

0. 

2 140 . 

021.000 

0.761 

1.000 

0. 

-0. 

-o. 

-0- 

0.62S63 

0.005412 

O.GQ2568 

0. 


1.824 

0.0Q339 

a. 

0. 

2295. 

817.000 

0.757 

1.000 

o. 

-0. 

-3. 

-o. 

0*66667 

O.OC5736 

0. 003163 

0. 


1.614 

0.00336 

0. 

0. - 

2428. 

815.000 

0.755 

1.000 

0. 

-o. 

-o. 

-0* 

0. 7C370 

O.0Q6090 

O.Q03371 

0. 


1.606 

0.00333 

0. 

o. 

2572. 

812.000 

0.753 

1.000 

0. 

-0. 

'0. 

-o. 

C.14C74 

0-006412 

0.003567 

0. 


1.798 

0.00329 

0. 

o. 

2703. 

810.000 

0.751 

1.000 

0. 

-0. 

-0. 

-o* 

C.77778 

C.UC6740 

0.003761 

0. 


1.792 

0.00326 

0. 

0. 

2837. 

008.000 

0.749 

1.000 

0. 

-0. 

-o. 

-o. 

0* ft 148 i 

0-00 7063 

O.CC3957 

0. 


1.765 

0.00323 

c. 

0 • 

2968. 

8 36.000 

0-747 

1.300 

0. 

3§ 

-0. 

-o. 

C.85 185 

0.007353 

0.004 136 

0. 


1.778 

0.00323 

0. 

0. 

3068. 

805.000 

0.746 

i.ooo 

0. 

-0. 

-0. 

-o. 

0.68689 

0*007583 

0.004262 

0. 


1.771 

0.00324 

0. 

0. 

3187. 

606.000 

0.747 

1.000 

0. 

-0. 

-o. 

-o- 

0.92593 

C.0C7784 

0.QC4410 

0. 


1. 765 

0.00326 

0. 

0. 

3277. 

006-000 

0. 749 

1.000 

0. 

-0* 

“0. 

-0* 
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TABLE IX. - Continued. OUTPUT FOR FLAT PLATE 
(c) Concluded. Summary of boundary layer parameters 




FLAT 

PLATE 


PRINCIPAL boundary layer 

PARAMETERS FOR 
FLAT PLATE 






* 

OT 

MT 

HT 

Sf 

' CF 

ST 

GPW 

ROT 

□ 

M TURB 

RH 

vw 

sw 

CH 


O.OC J9M 

0,0C<i‘l2 0. 


1.76C 

0.00327 

0 . 

o. 

3452. 

S 11.500 

0.752 1.000 

0. 

- 0. 

-o. 

-0. * 

occoo 

O.OCS106 

0.0C46L4 0- 


1,757 

0.00 32 9 

0. 

o. 

3431. 

815.000 

0.755 1.000 

n. 

-0. 

-0. 

-0. 


TABLE IX. - Continued. OUTPUT FOR FLAT PLATE 
(d) Momentum and energy balance ratios 


1 — 

1 

X( I > = 

a. 

COF 1 = 

0- 

COF 2 * 

0. 

R2IF- 

o. 

CQC1 = 

0* 

C0G2= 

0. 

R21G' 

0. 

1 s 

2 

x< (> = 

9. 2 5926 F- 04 

CQf 1® 

0. 

COF2 = 

0. 

R2 IF* 

o* 

CQG1 = 

0. 

C0G2= 

0. 

P21G= 

0. 

1 — 

3 

Kll) = 

I .6 51656- 03 

COFl - 

2.2737 

CGF2- 

1.2649 

R21F* 

0-5563 

C0G1 = 

1.0007 

CO G2= 

1.0000 

R21G® 

1.0009 

( s: 

4 

X(I> — 

2.177706-03 

COFi = 

1.2516 

C0F2- 

1.2224 


0.9767 

CDG1 = 

1.0000 

C0G2- 

1.0000 

R21G* 

1.0030 

|s 

5 

MH= 

3.7C310E-03 

COF1® 

1.1857 

C0F2 = 

1.2057 

R21F= 

1.0169 

CQG1 = 

1.0000 

COG 2= 

1.0000 

R21G- 

1.0000 

J *, 

6 

XUI = 

5.555566-0) 

CUF1* 

1.2761 

CGF2 = 

1.2839 

R21F* 

10061 

COGU 

1.0000 

C0G2= 

1.3003 

R21G= 

l.DOOO 

{ - 

7 

XU)- 

7.407416-03 

COF 1 = 

1.1029 

CGF2 = 

1-1829 

A21F 3 

1.0000 

C0G1* 

1.0000 

C0G2= 

1,0000 

R21& 3 

1.0030 

fs 

0 

X ( U = 

1. 11111 F- 02 

CGFi* 

1.2600 

CUF2 = 

1-2650 

R21F= 

1.0040 

CUG1 = 

1.0000 

COG 2= 

1.0000 

«21G® 

UOOOO 

I 3 

9 

XII >* 

1.48140F-O2 

COF 1 = 

1.1814 

COF 2^ 

1.1023 

R21F= 

toon 

C0G1 = 

1.0000 

C0G2* 

1.0303 

R21G= 

U3>>) 

f - 

10 

XI t > = 

.851856—02 

C0F1 = 

1.1397 

CQF2* 

1.1413 

R2 IF* 

1.0016 

C0G1 = 

1.0000 

COGZ= 

1.0000 

R2 1G= 

1.0003 

f- 

1 1 

XU ) = 

2.22222E- 02 

COF l = 

1. 1150 

CGF2 * 

1.1169 

R21F* 

1.0017 

COG 1 - 

1.0000 

C0G2= 

l.OOOQ, 

R21G~ 

1.0000 


17 

X(t> = 

2.592596-02 

COF 1* 

1* 1004 

C0F2 = 

1. 1001 

R2iF = 

0.9990 

C0G1 = 

1.0000 

C0G2= 

1.0000 

R21G- 

1.53)3 

1 a 

13 

xi [i- 

2.962566-02 

COFl- 

1.0880 

CDF2 = 

1.0882 

R21F = 

1.0002 

COGl- 

1.0000 

COG2* 

1.0000 

P21G= 

1.0000 

{ - 

14 

x m = 

3 « 33333F-02 

COF 1 = 

1 « 0795 

CDF2 = 

1.0792 

R21F = 

0.9998 

COGl* 

l.aooo 

CQG2- 

1.0000 

R21G- 

1.0000 

| - 

15 

xm = 

3. 703706-02 

C 0 F 1 = 

1.0731 

C0F2 = 

1.C722 

R21f* 

0.9991 

C0G1 = 

1.0000 

C0G2* 

1.3003 

R21G = 

1.33)3 

| a 

It 

xm= 

4.0 ?40 7P-C2 

COFl = 

1 .0676 

C0F2 = 

1.0665 

R21U 

0,9990 

CQGi = 

1.0000 

C0G2 5 * 

1.0000 

R21G = 

1.0000 

( s 

17 

Xllh 

4.444446-02 

COF 1 = 

1.0627 

CQF2* 

1.0619 

R21F* 

0,9992 

C0G1 = 

1.0000 

C0G2- 

1.0000 

R2 1G- 

1.0090 

| 3 

IB 

XU)3 

4.814016— C2 

COFi = 

1.0588 

C0F2- 

1.0581 

R21F® 

0,9993 

C0G1 = 

1.0000 

C0G2- 

1.0093 

R21G=» 

1.33)0 

|s 

19 

xn>= 

5. 186196-02 

COF i- 

1.0557 

C0F2® 

1.0540 

R21F = 

0.9992 

C0G1 = 

1.0000 

C0G2= 

1.0000 

R21G= 

1.0003 

|s 

2C 

X{ l 1 = 

5.555566-02 

COF 1 = 

1.0529 

COF 2 - 

1.0520 

R21F= 

0.9991 

C0G1 = 

1.0000 

C0G2=> 

1.0000 

R21G® 

1.0000 

(X 

7 1 

x ( n = 

5.925936-02 

COF 1= 

1.0505 

C0F2 = 

1.0495 

R21F* 

0.999 1 

C0G1* 

1.0000 

C0GZ= 

l.OOOQ 

R21G» 

l • 3 3)3 

I * 

77 

xm* 

6.246306-02 

CDF 1 = 

1.0433 

C0F2 » 

1.0474 

R21F* 

0 .999 1 

C0G1 = 

1.0000 

C0G2= 

uoooo 

R21G* 

1.0000 

J s 

23 

X ( I >3 

6.666676-02 

C0P1 = 

1 . 0463 

CGF2* 

1.0453 

R21F= 

0.9992 

CQGl = 

1.0000 

COGZ* 

1.0000 

R21G- 

1-0000 

[- 

24 

KC 11 = 

7.037046-02 

CQF1* 

1.0446 

C0F2 - 

1.04 33 

R21F- 

0,999 2 

CQGL = 

1.0000 

C0G2* 

1.0000 

RZ1G* 

1.0000 


25 

X l 1) - 

7.407416-02 

COF 1- 

1.0431 

COF2 = 

L • 0422 

R21F- 

0,9991 

caGi* 

1.0000 

C0G2= 

1.0000 

R21G* 

L.OOOQ 

lx 

26 

XI I 1 = 

7.777786-02 

COF i = 

1*0417 

CQF2* 

1.0408 

R21F= 

0.9992 

CGG1 = 

1.0000 

C0G2= 

1.0000 

R21G- 

1.0000 

1- 

27 

X( 11 = 

8. 148156- C2 

C0F1 = 

1.0404 

C0F2 = 

1.0396 

R21F» 

0,9992 

C0G1 = 

1.0000 

C0G2= 

1.0000 

R21G* 

1.0000 

{s 

26 

XI 1 J = 

8.516526- 02 

CDF1 = 

1.0393 

CUF2® 

1.0384 

R21F= 

0.9992 

COG1- 

1.0000 

CQG2= 

1.0000 

R2 IG~ 

1.0000 

[- 

29 

XI | 1 = 

0.888896-02 

C0F1«* 

1.0381 

C0F2 = 

1.0374 

R21F= 

0,9993 

CDG1- 

1.0000 

C0G2 3 

1.0000 

R21G= 

1.0000 

fa 

30 

x H >- 

9.259266-02 

C0F1 = 

1.0372 

COF 2 = 

1-0364 

R21F = 

-0.9992 

C0G1* 

1.0000 

CQG2= 

1.0000 

R21G- 

1.0000 

| a 

3 1 

XI 11 = 

9.6296 36-02 

CQF1* 

1.0363 

C0F2 = 

1.0355 

R21F= 

0.9992 

C0G1* 

1.0000 

C0G2= 

I.T303 

R21G® 

1.0009 

| S 

32 

xi r i = 

1.000006-01 

COF1* 

1.0354 

C0F2=“ 

1.0347 

R21F* 

0.9993 

C0G1* 

1.0000 

C0G2= 

i.0000 

R21G* 

1.0000 

J a 

33 

xi i > = 

1.037046-01 

COFi* 

1.0346 

CDF 2- 

1.0339 

ft 2 IF® 

0.9993 

C0G1* 

1.0000 

CDG2* 

1.0000 

R2 IG= 

1.0000 

]s 

34 

XI II* 

1.0 74C 76-Ot 

CGF1 = 

1.0339 

CQF2-* 

1.0332 

R2lF= 

0.9992 

C0G1= 

1.3000 

CDG2® 

1.3333 

R21G= 

1.33)3 

Is 

35 

xu >= 

1.111116-01 

C0F1* 

1.0339 

COF Z* 

1.0321 

R2lF = 

0.9903 

COG! 3 

1.0000 

C0G2= 

l.aooo 

ff21G= 

1.0000 

Is 

36 

XI I 1 = 

1 * 16 5196-01 

C0F1= 

1.0502 

COF 2 = 

1.0593 

R2iF* 

1,0010 

C0G1 3 

1.0000 

CGG2- 

1.0000 

R21G= 

1.0000 

I* 

31 

XI 11* 

1-2 59266-Oi 

COF 1« 

1.0476 

C0F2 = 

1*0523 

R2iF= 

1.0045 

COGU 

1.3003 

CDG2" 

1.3903 

R21G- 

1.99)3 



I 


TABLE IX. - Concluded. OUTPUT FOR FLAT PLATE 
(d) Concluded.. Momentum and energy balance ratios 


3a 

X < l > = 

1.333336-Qi 

COF 1= 

1.0489 

COF2 = 

1.0474 

R21F= 

0.9986 

COGl* 

1.0000 

C0G2* 

1.0000 

R21G= 

1.0030 

35 

X* I> = 

1.4C741F-01 

COF 1 = 

1*0406 

COF 2 = 

1.0440 

R21F= 

1.0032 

COGl* 

1.0000 

CDG2* 

1.0000 

R21G* 

1.0000 

4 tC 

X||J = 

1.48148F-01 

C(JF 1= 

1.0444 

CUF2 = 

1.0410 

R21f= 

0.9967 

COGl * 

1- 1000 

C0G2* 

1.3333 

R21G= 

1.3033 

4 1 

x< 1 3 = 

1.55556F-Q1 

CGF1 = 

1.0314 

C0F2 = 

1.0384 

R21F = 

1.0068 

COGi- 

1*0000 

C0G2* 

1.0000 

R21G= 

1.0003 

42 

Xll) = 

1*629636-01 

0061= 

1*0406 

COF2 = 

1.0360 

R2 IF - 

0.9956 

C0G1- 

1.0000 

C0G2= 

1.0000 

R21G* 

1.0000 

43 

x( n = 

i* 7C370F- 01 

C0F1 = 

1 . 0 34 i 

C0F2 = 

1.0346 

R21F= 

1.0003 

C0G1 = 

1.0C00 

C0G2* 

1-3003 

R21G* 

1.00)3 

44 

x l J > = 

1*7 77736-01 

C0F1 = 

1.0332 

CUF2 = 

1.0330 

R21F= 

0*9998 

COGl^ 

1.0000 

C0G2- 

1.0000 

R21G = 

1.0000 

45 

X< I 1 = 

1.351 856—01 

COF 1= 

1.0332 

C0F2 = 

1.0304 

R21F = 

0.9973 

C0G1 = 

1.0000 

C0G2* 

1.0000 

R21G« 

1-0000 

4 6 

XI I >- 

1.52553E-G1 

COf 1* 

1.0241 

COF 2 “ 

1-0274 

R2 IF = 

1.0032 

COGl = 

1-0000 

C0G2* 

1.0003 

R2lG= 

1* 30) 3 

4? 

XIII’ 

2 .000006-01 

COF 1 = 

1.0215 

COF2 = 

1.0259 

R21F = 

1.0043 

COGl = 

1.0000 

C0G2* 

1.0000 

R21G* 

1.0000 

4fi 

XI Jl = 

2.C7407F- 01 

C0F1 = 

1.0278 

C0F2 = 

1.0260 

R21F = 

0.9982 

C0G1 = 

l . 0000 

C0G2* 

1.0000 

R21G= 

i.0000 

45 

x( 1 1 = 

5.143156-01 

LUF1 = 

1.0282 

CQF2* 

1.0260 

R2 1F- 

0.9978 

COGl* 

1.0000 

CQG2* 

1.0000 

R21G= 

1.33)3 

5C 

X( 1 1 = 

2.22222F-01 

COF 1= 

1.0273 

C0F2- 

1.0254 

R21F* 

0.9981 

CD G1 - 

1.0000 

C0G2- 

J..OOOO 

R21G* 

1.0000 

51 

X < I > = 

2 .256306-01 

COF 1 - 

1.0267 

CQF2« 

1.0247 

R21F = 

0.9980 

COGl = 

1.0000 

C0G2= 

1-0000 

R21G= 

1.0000 

52 

XI n» 

2 • 37037E-01 

COF 1 = 

1.0259 

COF2 = 

1.0240 

R21F= 

0*9982 

COGl = 

1.0000 

CO G2= 

1.0000 

R21G* 

1.0000 

53 

x ( n * ' 

2 .444446-01 

COF 1 = 

1.0267 

CQF2 - 

1.0233 

R2iF = 

0-9966 

COGl* 

1*3000 

C0G2= 

1.0000 

R21G = 

1.0000 

54 

XIII — 

7*5 J B528-01 

COF 1 = 

1*0222 

C0F2 = 

1*0226 

R2 1F= 

1.0004 

COGl* 

1*0000 

C0G2* 

1.0000 

R2 1G* 

1.0000 

55 

XI 11 = 

2 *557596-01 

COF 1 = 

1.0233 

COF 2 = 

1.0233 

R21F = 

1.0000 

COGl = 

1.0000 

C0G2* 

1.0000 

R21G- 

1.0000 

56 

XI I )- 

2 ml 77786-0 

C0F1* 

1.0526 

CUF2* 

1.0575 

R21F= 

1.0045 

CDG1 = 

1.0000 

C0G2* 

1*0000 

R21G= 

1.0000 

5 7 

MU* 

2m 562566-01 

LOFi= 

1.0476 

C0F2* 

1*0554 

R 2 1 F= 

1.0074 

COGl* 

1.0000 

C0G2= 

1.0000 

R21G= 

i.0000 

58 

XI |)a 

3. 143156-01 

COF 1 » 

1.0563 

CDF 2 » 

1.0601 

R21F- 

1.0037 

COGl* 

1.0000 

C0G2* 

1.0000 

R21G* 

1.0000 

55 

XI I i* 

3*33 33 3 F- Cl 

COF 1 = 

1.0578 

COF2 = 

1.0629 

R2 1F = 

1*0348 

COGl- 

1*3000 

C0G2* 

1.0303 

R2 1G* 

1.0000 

60 

XI 11 = 

3*5165?F-01 

C0F1= 

1*0560 

C0F2 * 

1*0623 

R21F = 

1.0059 

COGl* 

1*0000 

C0G2* 

1.0000 

R2 i G= 

1.0333 

61 

XI i > = 

3.70370F-01 

C0F1 = 

1*0542 

CUF2 = 

1*0611 

R21f= 

1*0066 

COGl* 

1.0000 

C0G2= 

1.0000 

R2 1G= 

i.0000 

6 ? 

XI ll = 

3*633356-01 

CDF1* 

1.0513 

CQF2* 

1.0594 

R 2 1 F = 

1*0077 

COGl* 

1.0000 

C0G2- 

1.0000 

R21G* 

1.0000 

63 

xm = 

4.C7407E-01 

CQF 1* 

1.0477 

COF 2 = 

1.0570 

R21F= 

1.0089 

COGl* 

uoooo 

C0G2= 

1.0000 

R21G= 

1.0000 

64 

XI l> = 

4*259266-01 

COF 1 = 

1.0459 

CQF2 = 

1-0569 

RZ1F= 

1.0105 

COGl* 

1.0030 

CQG2* 

1*0000 

R21G* 

1.0000 

65 

X 1 1 )« 

4*444446-01 

COF 1 = 

1*0415 

C0F2 = 

1.0560 

R21F= 

1.0139 

COGl* 

1*0000 

C0G2= 

1.0000 

R21G= 

1.0000 

66 

x< n = 

4*814816-01 

COf 1- 

1.0770 

C0F2» 

1* 1029 

R21F- 

1-0240 

COGl* 

1*0000 

C0G2* 

1.0000 

R21G* 

1.0000 

67 

XI 1 1 = 

5. 165196-01 

COF 1 * 

1 *0622 

COF 2 = 

1.0880 

R2 If = 

1-0243 

COGl* 

1*0330 

C0G2* 

1.3300 

RZ1G* 

1.0000 

63 

XI i ) = 

5. 55556E-Q1 

COf 1 = 

1.0543 

COf 2- 

1.C765 

R21F- 

1-0210 

COGl* 

1.0000 

C0G2* 

1.0000 

R21G* 

1.0000 

65 

xi n = 

5. S2593E-01 

COf 1* 

1.0466 

C0F2 * 

1-0682 

R2 1F= 

1.0187 

COGl * 

1.0000 

C0G2* 

1.0000 

R21G* 

1.0000 

7C 

xi n- 

6*796306-01 

COF 1* 

1.0402 

C0F2 = 

1*0621 

R21F = 

1.0210 

COGl* 

10033 

COG 2= 

10333 

R2 lG* 

1.0000 

71 

XI ll« 

6 * 6666 7 F— 01 

CQF L= 

1.0416 

CUF2 = 

1*0570 

R2lf= 

1-0149 

COGl* 

1.0000 

C0G2* 

1.0000 

R21G* 

L.0000 

12 

XI 11 = 

7.037046-01 

COF 1* 

1.0308 

CQF2 = 

i. 0531 

R21F = 

1.0216 

COGl* 

1.0000 

C0G2= 

1.0000 

R2 1G= 

1.0000 

13 

XI 11* 

7*4074 1E-C1 

C OF 1 * 

1*0313 

COF2* 

1.0493 

R21F= 

1.3175 

COGl* 

1*3030 

C0G2* 

10 333 

R21G* 

1*3333 

74 

XI ti* 

7.777786-01 

COF 1 = 

1.0276 

COF2 = 

1.0461 

R21F= 

1.0176 

COGl* 

1.0000 

C0G2* 

1.0000 

R21G*' 

1.0000 

75 

XII1- 

8*1481 5F-CI 

COF 1 = 

1*0239 

C0F2 = 

1-0433 

R21F= 

1.0190 

COGl* 

1.0000 

CDG2<= 

1.0000 

R21G* 

1.0000 

76 

XI 11 = 

3.51352E-01 

COF 1** 

1.0214 

C0F2* 

1*0411 

R21F= 

1.0193 

COGl* 

1*0000 

C0G2* 

1-3333 

R2 1G= 

1. 3333 

77 

xm = 

6 * 66889E- 01 

COF1* 

1.0222 

C0F2 = 

1 • 0395 

R21F* 

1.0168 

COGl* 

1.0000 

CO G2- 

1.0000 

R21G = 

1.0000 

73 

X ( { 1 = 

9*259266-01 

COF1* 

1*0166 

C0F2* 

1.0364 

R21F= 

1.0193 

COGl* 

1*0000 

C0G2= 

1-0000 

R21G= 

1.0000 

74 

XI 11= 

9*629636-01 

COF 1 = 

1*0203 

COf 2 = 

1*0376 

RZ IF* 

1.0169 

COGl* 

1*0030 

C0G2* 

10033 

P.21G* 

1*3339 

30 

xi n» 

1*003006+00 

COF 1 = 

1*0176 

C0F2* 

1*0369 

RZ 1F= 

L .0139 

COGl* 

1.0000 

C0G2* 

1*0000 

R21G= 

1.0000 


CAS* END 1 



TABLE X. - INPUT FOR INLET DIFFUSER 


FMEfi INIR 

AT 0 

.0 SEC. 







4 

1 STO ( K >* 

1*15 


FORMAT 

< 1515 ) 


1 


1 2 

2 1 

1 1 

1 2 2 

1 0 

1 -0 -0 

l 



4 

wSTOl K ) « 

K* 1*20 


FORMAT 

[ 5E15.8 ) 


1 


0*99990000E400 0*200000006402 

0.622000006406-0* 

-0* 




-0. 

-0, 

— 

0* -0* 

0* lOOOOOOOE+01 



0* 15640000E-30 0* 

- 

0* -0. 

-0* 




-0- 

-0* 

- 

0 • — 0* 

-0* 




4 

CA0EU K), 

K* 1. 18. ON 

FORMAT (18A4) 

. THE X-STAT10N HEADING* 


1 


444* *. DIFFUSER STUDY. 







4 

jniv 



FORMAT 

1 1515 ) 


1 


4 

J Y ON FORMAT (1515) 

THEN YY ( J I ■ J*i * JY CN FORMAT 

( bF 10*51 


1 


48 

142* 

3# 







C. 

0*00200000 

0.00500000 

0*01000000 

0*02000000 

0.05000000 



0*09999999 0*. 

20000000 

C. 30000000 

0*40000000 

0. 50000000 

0.60000000 



0*70000000 o*. 

aooooooo 

C.90COOQOO 

1.00000000 

1*20000000 

1.40000001 



1*59999999 * 1* 

80000000 

2.00000000 

2.50000000 

3*00000000 

3*50000000 



4*00000000 4* 

50000000 

5.00000000 

5*50000000 

6.00000000 

6*50000000 



1*00000000 7* 

50000000 

8.00000000 

8.5OC0C000 

9.00000000 

9.50000000 



10*00000000 ll.l 

ooocoooo 

12.00000000 

13*00000000 

14.00000000 

16*00000000 



1 8*00 COOOOO 20*' 

OOO000GG 

22*00000000 

24.00000000 

26.00000000 

28.00000000 



4 

IFF ON FORMAT (1515) 

* THEN FP ( J) • 

J*1 * J6F ON FORMAT (6F10.5) 


1 


36 

106* 

3* 







1.00000000 o.< 

99800000 

C* 996000 00 

0.99200000 

0.98500000 

0.96200000 



0*92600000 0* 

85500000 

0*78000000 

0.72600000 

0.66600000 

0.60000000 



C. 55500000 0* 

50500000 

0*45699999 

0.41300000 

0.33300000 

0.26500000 



0*20800000 0* 

161C0G00 

0*12300000 

0.05680000 

0*02609999 

0*01080000 



0*00426999 0*1 

00161999 

0.00060700 

0.00022899 

0*00006950 

0*00003660 



C.00QG1570 0*( 

00000696 

C* 00 0003 16 

0*00000144 

0.00000062 

0*00000022 



• 

J EG ON FflRMAT ( 15(5) 

; THEN GPU). 

j*L,JEG ON FORMAT (6F10.5) 


1 


6 

16* 

3# 







C* 

0* 


0* 

0. 

0* 

0. 



4 (OP NOP 

OOP 10 

TOP POP 





1 


4 1 

0 

1 1 







4 HR 4 

CT(l) * 

ROTH) 4 

B$ 4 TO 

4 BH 

4 FT 4 


1 

L 

-0* -0* 

-0. 

1*0000 269. 

0000 1*0000 

-0* 




4 

X— STATION 

DATA CAROS 

a * • M l TH 8 WORDS.*. ON FORMAT 

( 8F 19*5) 


1 

L 

0* 

0* 

0* 

-0* 0. 

-0* 

-0* 

-0. 

IS- 

1 

0.11810 

0.01850 

0* 

-0* 0. 

-0. 

-0* 

-0* 

IS- 

2 

0.19100 

0*03710 

0* 

-0* 0. 

-0* 

-0* 

-0* 

IS- 

3 

0-24750 

0-05560 

0. 

-0* 0. 

-0. 

-0. 

-0. 

IS-' 

4 

0*29210 

0.C741O 

0* 

-0* 0* 

— 0* 

—0* 

-0* 

IS- 

5 

0.24750 

0*05560 

0* 

-0* 0. 

-0* 

-0* 

-0* 

IS* 

4 

0.04125 

0*00927 

0* 

-0* Q* 

-0. 

-0. 

-0* 

IS* 

2 

0 .08250 

0*01653 

0. 

-0. 0. 

-J* 

-0. 

-0* 

1S- 

3 

0*12375 

C. 02780 

0* 

-0. 0. 

-0. 

—0 ■ 

-0* 

I$- 

4 

0.16500 

0.03707 

0. 

-0* 0* 

-0. 

-0. 

-0* 

IS- 

5 

0.20625 

0.04633 

0* 

-0* 0* 

-0* 

-0* 

-0. 

IS* 

6 

0.24750 

C.C5560 

0. 

-C* 0* 

-0* 

-0* 

-0. 

IS- 

7 

0*29210 

0. £74 10 

0* 

-0* 0. 

—0 * 

-0* 

-0* 

IS- 

a 

0*33100 

0.09270 

0* 

-0* 0* 

-o. 

-0* 

-0. 

IS- 

9 

0.36600 

0*11120 

0* 

-0. 0* 

-0* 

-0. 

-0* 

IS* 

10 

0.39800 

0.12970 

0* 

-0* 0. 

-0. 

-0* 

-0* 

IS- 

11 

0*42760 

0*14830 

0* 

-0. 0. 

-0. 

-0. 

-0. 

IS* 

12 

0*4537 Q 

0*16660 

0* 

-0* 0* 

-0* 

-0* 

-0. 

IS* 

13 


co 

CD 



140 


TABLE X. - Continued. INPUT FOR INLET DIFFUSER 


0 .47530 

0* H 8530 

0* 

-0* 

0* 

-0. 

-0* 

-0. 

is- 

14 

0*49390 

0*20390 

0. 

-c. 

0* 

-0* 

-0* 

-0* 

IS* 

15 

G.51O50 

0*22740 

0. 

-0* 

0. 

-0. 

-0 • 

-0* 

IS* 

16 

0*52570 

0*74090 

0* 

-0. 

0* 

-0* 

-0* 

-0* 

IS* 

17 

0*53970 

0*25950 

0* 

-0* 

0* 

-0* 

-0* 

-0. 

IS* 

IB 

0.55280 

0*27800 

0. 

-0* 

0. 

-0* 

-0* 

“0* 

IS* 

19 

0 * 565 20 

0*25650 

0* 

-0. 

0* 

-0* 

-0. 

-0. 

IS* 

20 

0*57690 

0*31510 

0* 

-0. 

0. 

•0. 

-0. 

-0* 

IS* 

21 

0.58810 

0*33360 

0* 

-c. 

0* 

-0* 

-0* 

-0* 

IS* 

22 

0*59880 

0*35210 

0* 

“0. 

0* 

-0. 

-0. 

-0. 

IS* 

23 

0.60910 

0*37070 

0* 

-o. 

0* 

-0. 

-0* 

-0* 

IS* 

24 

0*61900 

0*38520 

0* 

-0* 

0* 

-0/ 

-0. 

-0. 

IS* 

25 

0.62860 

0*40770 

0* 

-0. 

0* 

-0. 

-0. 

-o. 

IS* 

26 

0*63790 

0*42630 

0* 

-O'* 

0* 

-0* 

-0* 

-0* 

IS* 

27 

C *64700 

0*44480 

0* 

-0. 

0* 

-0. 

-0* 

-0. 

IS* 

28 

0*65720 

0*46330 

0. 

-0. 

0* 

-0 • 

-0* 

-0* 

IS* 

29 

0*66770 

0*48190 

0* 

-0. 

a. 

-0. 

-0* 

—0* 

I s* 

30 

0*67870 

0*50040 

0* 

-0. 

0* 

-0. 

-0* 

—0. 

IS* 

31 

0.69030 

0*51890 

0* 

-0. 

0. 

-0- 

-0. 

-o. 

IS* 

32 

0*70230 

0*53750 

0* 

-0. 

0. 

-0. 

-0. 

-0* 

IS* 

33 

0*71510 

0*55600 

0* 

-0. 

0* 

-0. 

-0* 

-0. 

IS* 

34 

0.72870 

0*57450 

0* 

-0. 

0. 

-0* 

-0* 

-0. 

1 s= 

35 

0*74320 

0*59310 

0. 

-0* 

0. 

-0. 

-0* 

-0. 

IS* 

36 

C * 75 90 0 

0*61 160 

0* 

-0. 

0* 

-0. 

-0. 

-0. 

IS* 

37 

0.77630 

0.63010 

0* 

-0* 

0* 

-0. 

-0* 

-0* 

IS= 

38 

0*19590 

C. 64670 

0. 

-0. 

0* 

-0. 

-o. 

-0* 

IS* 

39 

0.81870 

0.66720 

0* 

-0. 

0. 

-0. 

-0* 

-0* 

IS* 

40 

0*84760 

0*68570 

0. 

-0* 

0* 

-0. 

-0* 

-0* 

IS- 

41 

0*88650 

C. 70430 

0. 

^0. 

0* 

-0. 

-0. 

-0* 

IS* 

42 

0*92930 

0.72280 

0* 

-0* 

0* 

—0 . 

*0. 

-0. 

IS- 

43 

0*57610 

0*74130 

0. 

-0. 

0* 

-0. 

-0. 

—0* 

IS* 

44 

1 .02850 

0.75990 

0* 

-0* 

0* 

*0. 

-0* 

“0* 

IS* 

45 

J * 10730 

C. 77840 

0. 

-0* 

0. 

-0. 

-0* 

-0. 

IS* 

46 

1.25520 

C. 79690 

0. 

-0. 

0* 

-0. 

-0. 

-0. 

IS- 

47 

1 .670)0 

0*81550 

0* 

-c. 

0* 

-0. 

-0. 

-0* 

IS* 

48 

1.87640 

0*79800 

0. 

•0. 

0. 

-0* 

-0* 

-0* 

IS- 

49 

2-03100 

C-78C40 

0* 

-0* 

0. 

*0* 

-0* 

-0* 

IS* 

50 

2*38310 

C* 72800 

0* 

-0. 

0* 

-0. 

-£>• 

-0. 

IS- 

51 

2.73530 

0.66460 

0* 

-0. 

0* 

-0. 

-0. 

-0. 

IS* 

52 

3 .087 5 C 

0*65010 

0* 

-0* 

0* 

-0. 

-0. 

-0. 

IS- 

53 

3*43470 

0*62420 

0* 

-0. 

0* 

-0. 

-0. 

-0. 

IS* 

54 

3*79180 

0*60280 

0* 

-0* 

0* 

•0* 

-a. 

-0* 

IS- 

55 

4*14400 

0*68600 

0* 

-0. 

0* 

*0. 

-0* 

-0. 

IS* 

56 

4*49620 

0*57380 

0* 

-0* 

0* 

, «o* 

-0* 

-0. 

IS- 

57 

4*84840 

0.55820 

0* 

-a. 

0* 

-0. 

-0* 

-0. 

IS* 

58 

5.20050 

0.54070 

0* 

-0* 

0. 

-0. 

~o. 

-0. 

IS- 

59 

5*55270 

0*52370 

0* 

-0. 

0* 

—0* 

-0* 

-0* 

IS* 

60 

5*90490 

0*50730 

0. 

-0. 

0. 

-0. 

“0. 

-0 * 

IS- 

61 

6.25710 

0.49150 

0* 

•0. 

0* 

-0* 

-0* 

—0* 

IS* 

62 

6*60930 

0*47610 

0* 

*0. 

a* 

-0. 

-0* 

-0. 

IS* 

63 

6*96140 

0.46C90 

0* 

-0. 

0* 

-0. 

-0* 

-0. 

IS- 

64 

7*31360 

0.44580 

0* 

-0. 

0* 

-0. 

-0. 
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65 

7*66580 

0.43130 

0* 

-0. 

0* 
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—0 « 
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66 
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0*41770 

0* 
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a* 
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-0. 

•0. 
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67 
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0* 

-0. 

0* 

-0* 

-0. 

-0* 
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68 

8*72230 
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0* 
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0* 

-0* 

-0* 

-0. 
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69 

9 .C 7450 
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0* 

-0* 

0. 

-0* 

-0* 

-0* 
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70 

9 *42670 
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0* 

-0. 

0* 

-0* 

-0* 

-0. 

IS* 

71 

9*77660 
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0* 

-0* 

0* 

-0. 

-Q • 

-0. 

I s« 

72 

10.13100 
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0* 

-0* 

0* 

-0. 

-0* 

-0* 

IS- 

73 
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10.48320 

0.34120 

0. 

-0. 

0. 

-0. 

-0. 

-0. 

IS 3 

74 

10.83540 

0.33320 

0. 

-0. 

0. 

-*0. 

-0. 

-0. 

IS= 

75 

11 -18750 

0.32580 

0. 

-0. 

0. 

-0. 

-0. 

-0. 

i s = 

76 

11.539 70 

0.31930 

0. 

-0. 

0. 

-0. 

-0. 

-0. 

1 s = 

77 

l 1.89190 

0.31350 , 

0. 

-0. 

o. 

-0. 

-0. 

-0. 

IS- 

78 

15 .244 20 

C. 30670 

0. 

*0. 

0. 

-0. 

-0. 

-0. 
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79 

1 5 .59620 

0.30410 

0. 

“0. 

o. 

-0. 

-0. 

-0. 

I s- 

80 

15.94640 

0.30010 

0. 

-0. 

0. 

*0. 

-0. 

-0. 
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61 

13.30060 

0.29660 

0. 

-0. 

0. 

-0. 

-0. 

-0. 
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62 

I 3 .65280 
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0. 

-0. 

0. 

-0. 

-o. 

-0. 
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83 

l 4 .00490 

0.29510 

0. 

-0. 

0. 

-0. 

-0. 

-0. 
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84 

14.35710 
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0. 

“•0. 

0. 

-0. 

—o. 

-0. 

IS- 

85 

14.70930 

0.28950 

0. 

-0. 

0. 

-0. 

-0. 

-0. 

I $= 

86 
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0. 

-0. 

0. 

-0. 

-o. 

-0. 

IS- 

87 

15.41370 
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0. 

-0. 

0. 

-0. 

-0. 

-0. 

IS* 

88 

1 5.74 58C 

0.29100 

c. 

-0. 

0. 

-0. 

-0. 

-0. 

IS- 

89 

16.11800 

0.29520 

0. 

-0. 

0. 

-0. 

“0. 

-0. 

IS- 

90 

16.47020 

0.30190 

0. 

-0. 

0. 

-0. 

-0. 

-0. 

IS- 

91 

16.82240 

0.31100 

0. 

-0* 

0. 

-0. 

-0. 

-0. 

IS- 

92 

1 7.17450 

0.32260 

0. 

-0. 

0. 

-0. 

-0. 

-0. 

I s- 

93 
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0. 

-0. 

0. 

-0. 

-0. 

-0. 
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94 

0. 

0. 

0. 

-0. 

0. 

-0. 

“0. 

-0. 
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95 


FfcO ff CiftO KMC NO. Of X STATIONS* 94 LAST X Tq BE COHPUTfcO* 0. 1 7526700E+02 LAST X- 0* 

PR- 9-2666665F-03 DTtl>--0. ROT ( L )- 2.3775949E+02 BS= 1.000000QE+0Q 

NSTOUO)- 1 .00000006+00 NO. OF * 

* 1 


IT 3 LOO NC- 92 KEND = 3 

STATION POINTS INCftEA5E= 3 
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TABLE XI. - OUTPUT FOR INLET DIFFUSER 
(a) Profiles and parameters at X * 0. 0412 


•••DIFFUSER STUDY.... 






X • 

Q. 0412 


U * 

UOOO M rn Q 

.01 RDT * 9-99E+00 




TUftB *0, 

RU * 0. 

vy *— o. 

SW — 0. 

CW --Q . 



DT 

- 1.736-03 MT 

* 7.826-04 HI * 

Q, Sf » 2. 

226+00 CF » 1 .606*01 ST =-0. 




HR = 

1*006+00 PR = 

7.806-01 PRT * 

l.OOE+OO SHR * 

1.40 


X* 

0.0412 XNflD* 

0.0412 1 

[ 1X7= 2 JE- 

102 ISTOt 10 1® 

2 



J 

YY 

U/UtBlE) 

6 

FP 

FPP 

D 


1 

0. 

0. 

0. 

1. OOOOOOOE+OO 

-7.96973696-01 

1,00001726+30 

Q. 

4 

2.00000006-03 

1 . 5933563E— 03 

1.9984064E-03 

9.98406666-01 

-7*961 3328E-01 

1.0000172E+00 

0. 

1 

5.00000006-03 

3.90OO939E-O3 

4. 99Q0454E— 03 

9.96019976*01 

*7.94805576-01 

1.0000172E+00 

0. 

10 

I. 00000006-02 

7.94957076*03 

9.96021766*03 

9. 92050566—01 

-7.92470 56E-01 

1.00001726+00 

3* 

13 

2 . 0 C 000006- 02 

1.58568886*02 

1*98411566-02 

9.84143386-01 

-7 .8721494E-01 

1.0000 172E+00 

0. 

16 

4,99999996*02 

3,93268 546*02 

4.90125736-02 

9.60673776-01 

-7.74630616-01 

1.00001716+00 

0. 

19 

1.00000006*01 

7.7605252E-C2 

9.60854416-02 

9 • 22396066-01 

-7.51609066-01 

1.0000171E+00 

0. 

22 

2.0CC00006-01 

1 ,51030906-01 

1 . 8462 299E-0 1 

8.48971636-01 

-7,13479786-01 

1 -0000 168E+00 

0. 

25 

3.00000006*01 

2.20318666*01 

2 • 66025366*0 1 

7.7968473E-01 

-6.72383066-01 

1.0000163E+00 

0. 

20 

4,00000006*0 1 

2.85530606-01 

3.40703366-01 

7.14473836-01 

-6. 3 19466 IE -0 1 

1.0000 1 58E+00 

0. 

31 

5.00000006-01 

3 .46 745946 — 01 

4.09060736-01 

6. 53259316-01 

-5.92408126-01 

1.0000 152E +00 

0. 

34 

6.00000006*01 

4.04060076-01 

4, 7149248E-01 

5,95945766-01 

-5.5400555E-01 

1.00001446+00 

0. 

37 

7.00000006-01 

4. 57582276-01 

5.28383306-01 

5,42423986-01 

-5. 16676686-0 i 

1.00001376+00 

0. 

40 

7,99999996*01 

5.07433476-01 

5.B010642E-01 

4.92573046-01 

-4.8O6O9Q0E-O1 

1,00 00129E+00 

0. 

43 

8. 5 S99999F— 0 1 

5.53744536*01 

6.2702245E-01 

4.46262126-01 

-4.45892636-01 

1 .00001206+00 

0. 

46 

1. OOOOOOOE+OO 

5.96654366*01 

6.69478516-01 

4.0335231E-01 

-4.0719 7806—0 1 

1.00001 12E+00 

0. 

49 

1.20000006+00 

6.72847306*01 

7.42345596-01 

3.27159126*01 

-3.5053357E-01 

1 .000 3C96E + 33 

o. 

52 

1.4000000F+00 

7.37233686-01 

0.01173016-01 

2* 62772226*01 

-2. 94607676-01 

1,00000806+00 

0. 

55 

1.60000006+00 

7.91059656-01 

8.4819758E-0I 

2, 08945556—01 

— 2. 4492 592 E -01 

1.0000066E+00 

0. 

58 

1 .00000006+00 

0.3556659E-C1 

8. 054069 IE-0 1 

1.64437076-01 

-2.0137936E-01 

1,00000536+03 

0, 

61 

2.00000C06+00 

8.71959106-01 

9. 14543596—0 1 

1.28044616-01 

-1.5532593E-01 

1.0000043E+00 

0. 

64 

2.500 OOOCE+OO 

9.34682456-01 

9. 61572246-0 1 

6. 53196766-02 

-9.30267706-02 

l,0000023E+00 

0. 

67 

3.0000000F+00 

9 .68984076-01 

9o 84B44Q1E— 01 

3. 10170216-02 

-4.88547606-02 

l.OOOOOllE+OO 

0. 

70 

3. 50000006+00 

9 . 06343066—01 

9«v9555 124E— 0 1 

1.36 5663 06-02 

-2.3690476E-02 

1.00000C5E +00 

0. 

33 

4.00000006+00 

9.94444996-01 

1.0001 1486+00 

5.55 5197 7 E— 03 

-1,05701886-02 

1,00000026+00 

o. 

76 

4.90000006400 

9.9791933E-01 

1.00191036+00 

2. 0807233E-03 

-4.32563846-03 

1.00000016+73 

0. 

79 

5*00000006+00 

9 .9928 45 96 —Cl 

1. 00256056+00 

7. 15410236-04 

-L. 61869956-03 

1, OOOOOOOE+OO 

0. 

62 

5. SCCOCOQE+OO 

9.99774836-01 

1.00277656+00 

2. 2516360E-04 

— 5.5268 394E -04 

1.00000006+00 

0. 

75 

6. 00000006 1 00 

9. 99935206-01 

1,00204216+00 

6.4701582E-05 

-1,7171 125E-04 

1,00000006+30 

0. 

68 

6. 5000000E 400 

9. 999 030 6E— 01 

1.00286036+00 

l. 69 3303 5E- 05 

-4.8445033E-05 

1,00000006+00 

0. 

91 

7.00000006+00 

9.99995966-01 

1.00206496+00 

4. 02 74 76 OE -06 

-l* 23866S2E-05 

1.00000006+00 

0. 

94 

7.50000006+00 

9,99999126-01 

1.Q02866QE+00 

8. 68581966-07 

*2 • 86 47 6 5 5E -06 

1.00000006+00 

0. 

97 

8.00000006+00 

9.99999026-01 

1.00286626+00 

1.6950736E-07 

-5.9821420E-07 

1. OOOOOOOE+OO 

0. 

100 

8.50000006+00 

9,99999956-01 

1.00206626+00 

2.9873490E-08 

-1.12506O5E-O7 

1.00000006+00 

0. 


GP 


IVEI* 
I VFl« 


VE1 1>> 

vet x i- 


4,996*02 

3.976-02 


V6GUI- 
VEGt 1 J * 


6.40E-02 

5.09E-02 


VHPtlM 

VHPtll* 


vhi n> 

VHt 1 >■ 


TRANSITIONAL STATISTICS LISTED BY TRANS, », tlXU 3 IC« 95 

0.1006+01 RRR* 0,1006+01 RNC- 0.613E+04 RC* 0.10QE-18 RMT- 
TlIRBt t + 1 1» 0, 


1,006+00 

1,006+00 


FT* -0. 


RTR= 3* LOSE- 18 


J 

1 

7 

13 


0,0025 

VV 


XNOQ* 


5,00000006-03 
2 « CCOOOOOE— 02 


0,0625 IU)» 3 36* 102 

U/UIBLE) F 

o, a. 

3.99596356*03 4,99000616*03 

1.59195946*02 1.96405346-02 


1STQUO)* 
FP 

1. 00000006+00 
9# 96 0042 BE *01 
9 . 64001496-01 


FPP 

*6,00147646-01 
*7.97692906*01 
*7. 9027936E— 01 


1.00006076+00 
i. 00006076+00 
1.00006076+00 


GP 


GPP 


GPP 


OOUOOOOOOOOwOOOOoOOoOOOOQOCOOOOOOO 
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TABLE XI. - Continued. OUTPUT FOR INLET DIFFUSER 
(b) Transition statistics and profiles at X a 0. 7287 and X * 0. 7432 


IVfl= 3 
I VE L“ 3 


WE 1 1 > a 

weu>= 


4. 546-03 
4*536-03 


VEGI 1 >* 
VEGC 1 ) a 


5.826-33 
5. 816-03 


VHPU>- 


TRANSITIONAL STATISTICS LISTED BY TRANS... IIX)« 35 IC* 95 

HSR® 0*1006+01 RRft® O.IOOE+Ol RHC* 0*1926+04 RC= 0.1006-18 

njRR<r + i>* a* 


VHli>* 1*126+00 
VHI1)=* 1* 12E+0Q 

RMT= 0* FT“ -0. 


RTR* 0*1006-18 


X- 

0*3287 XNOD* 

0*7287 1 

[1X1= 35 JE® 

10 0 1STQ ( 10 1» 

3 


J 

YY 

U/UI8LE1 

F 

FP 

FPP 

D 

1 

0* 

0* 

0* 

1 • 00 00 0 00 E + 00 

-7.5640528E-01 

1*06601006+00 

7 

5*00000006—03 

4.0269484E-03 

4.9905518E-03 

9.9622240E-01 

-7.5440480E-01 

1 *06600906+00 

13 

7-CCOOOOOE-fl2 

1.6046 3026-02 

1*984922 06-02 

9.84947096-01 

-7* 4761 547E-01 

1*0659930E*00 

19 

1 *CCOOOOOE-Ol 

7*86 19547E-Q2 

9. 62807816-02 

9*26220466-01 

-7.1654767E-01 

1.06560116*00 

25 

3. OCQOOGOE— 0 1 

2-2390734E-01 

2 * 6760960E— 0 1 

7*89301796-01 

-6* 50549 12E -01 

1* 06269226+0 0 

31 

5.C000000E-01 

3.5354433E-01 

4* 129041 76-01 

6*65754266-01 

-5*05 39 55 8E - 01 

1.0577377E+03 

37 

7 • 0 000000 E— 01 

4*679C693E-0l 

5.3477*786-01 

5* 5501959E-01 

-5.22196676-01 

1*051 5226E+00 

43 

8. 99 9 99 596—01 

5.6748645E-01 

6* 357576 9E-0 1 

4. 567982 6 E -01 

-4.6022496E-01 

1*04470666+00 

49 

l * 2C GOQGCE+OO 

6 *906 48026-01 

7*53482036-01 

3*32369396-01 

-3*70108606-01 

1*03447636+00 

55 

l .60000CGE+00 

8*11124096-01 

8* 59885636—0 1 

2 * 06 76470E-01 

-2*60594066-01 

1.02255176+00 

61 

7 . 00000006*00 

8*90606596-01 

9* 2434022E-0 1 

1*21 38473E— 0 1 

-1*60645026-01 

1.01364806+00 

67 

3.00000006*00 

9*77562886-01 

9.875368CE-01 

2* 53083106-02 

-4.40492736-02 

1.0029458E+00 

33 

4 • COO 000 OE +00 

9.96546346-01 

9* 993396 BE— 0 1 

3.91393946-03 

-7. 96919556-03 

1. 000462 LE +00 

79 

5 #00000006+00 

9 *995571 QE-Q1 

1*00100156*00 

4.57491256-04 

- 1. 06 B 692 06- 03 

1.00005466+00 

85 

6* OCOOOOOE +00 

9*99964986-01 

1.00117886+00 

3.98168346-05 

-l*0631467E-04 

1.00000486*00 


0* 

0. 

0* 

0. 

0. 

3* 

0, 

3* 

0* 

0* 

0* 

0* 

0 * 

0* 

0 . 


IWFL» 3 V£ < I >=» 4.32E-03 VEG(1)= 5,536-03 


VHPtll= 0* 


WHID® 1.13E+0G 


IVEL = 3 V E I 1 ) » 4.32E-03 VEGUl* 5.53E-03 


VHP(D- 0, 


VHU>= I* L3E+00 


TRANSIT I CNAL STATISTICS LISTED 8 V TRANS*.* II X)» 
RSR» 0* 1006+0 l RftR® O.IGOE+Ol RRC^ 0.798E+Q3 
TURBI 1*1 1“ 0* 


36 
RC = 


1C* 95 

0.10GE-18 


RHT- 


FT- — 0, 


RTR= 0*1006-18 


X- 

J 

0*1432 XNOO= 

YV 

0*7432 IIXJ® 36 JE« 

U/Ul BLE) F 

99 ISTOI 10 )= 

FP 

FPP 

0 

GP 


1 

0. \ 

0 * 

0* 

1 • 00 00 G DOE +00 

-7.50180326-01 

1. 0703535E+00 

0. 

0. 

7 

5 .0C00000E-03 

4*01020506-03 

4*99062946-03 

9.962S337E-01 

-7. 48258076-01 

1*07035246+00 

0. 

0. 

13 

2.0CC000DE-02 

1.59809576-02 

1*98504496-02 

9.85069206-01 

-7.41647016-01 

1.07033556+00 

0* 

0. 

19 

1*00000006-01 

7*83281996-02 

9* 631011 76—02 

9.26790636-01 

- 7 • 11437766- 01 

1*06992066+00 

0. 

0* 

25 

3* CCOOOOOE— 01 

2*23284576-01 

2* 6 784287E— 01 

7* 9070375E-01 

-6*47423906-01 

1*06683506+00 

0* 

0* 

31 

5.CCG00G0E— 01 

3 #52882666— 01 

4. 134668 3E-0 1 

6*67582896-01 

-5*84216526-01 

1* 06156596*00 

0* 

0* 

37 

7*00000006-01 

4*67430996-01 

5* 35716916-0 1 

5*56911786-01 

—5. 22679026-01 

1*05493896+00 

0* 

0* 

43 

8* 99999 99E- 01 

5 *67346 5 5E- CL 

6.37057316-01 

4.58460006-01 

-4.61968176-01 

1.04765406+00 

0* 

0* 

49 

1* 2000000E+00 

6 *91 L3214E-01 

7*55182316-01 

3*33330136-01 

- 3*72925466-01 

1*03669326+00 

0* 

0* 

55 

1 #60000006+00 

8 « 1 23 3829 E— Cl 

8* 6174614E— 0 1 

2*06619286-01 

-2*63132536-01 

1.02389476+00 

0* 

3* 

61 

7# OCOOOOOE+OO 

8*92 1799 4£— 01 

9*25967236-01 

1.20440066-01 

-1*61888206-01 

1.01434816+00 

0. . 

0* 

67 

3.00000006*00 

9* 786 844 OE- 01 

9*87975566-01 

2*42256206-02 

-4*33744426-0 2 

1*00298436+00 

0* 

0. 

1 3 

4*00000006+00 

9*96911176-01 

9*99061326-01 

3. 52793306-03 

—7* 44444 78E- 03 

1.00044C7E+00 

0* 

3. 

79 

5.0000000E+00 

9*99667626-01 

1* 000522 7 E+OQ 

3.80416406-04 

-9. 25297206-04 

1 *0000481 E +00 

0* 

0* 

82 

5 * 5CC0CC0E+0C 

9*99902 92E-01 

1. 0006343E+00 

1*11225296-04 

-2*89790346-04 

1.00001426+00 

0* 

0* 


I WE L® 3 

VEIL)" 

4*11 E— 03 

VEGI1I- 5*276-03 

vHPm- 

0* 

VH(l)a 

1*146+00 

IVEL® 3 

V E < 11* 

4.I0E-03 

VEGI 1 )“ 5.266-03 

VHP (II* 

a* 

VH(U» 

1* 14E+00 


IRAN S IT I QNAL STATISTICS LISTED BY TRANS*** 1<X»* 
R SR * 0* 1006+01 RAR® 0*1006*01 RNC* Q.59QE+03 

TURBI (+1)* 0* \ 


37 

RC® 


1C- 95 

0* 100E-18 


AMT* 


FT * -0* 


RTR= 0* 100E-1 8 


GPP 


GPP 


\ 


OOOOOQOUOOOOOOO 
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TABLE XI, - Continued. OUTPUT FOR INLET DIFFUSER 
(c) Summary of boundary layer parameters 

PRINCIPAL BOUNDARY LAYER PARAMETERS FOR 
.♦•DIFFUSER STUDY... W DIFFUSER STUDY..* 


X 

OT 

MT 

HT 

SF 

CF 

ST 

GPU 

ROT 

U 

H 

TURB 

RW 

vw 

sw 

cw 

0. 

0.001733 

0.00C782 

0. 

2.217 

0. 

0. 

0. 

0. 

o. 

0. 

0* 

0. 

-o. 

-0. 

-0 

0.041 25 

0.001733 

O.OCC 782 

0. 

2.21 7 

0.15953 

0. 

0. 

10* 

1.000 

0.009 

o. 

3. 

-o. 

-o. 

0 

G.CE250 

0.002185 

0*0(0585 

0. 

2.218 

0.07589 

0. 

o. 

25. 

2.000 

0.019 

0. 

0. 

-0. 

-0. 

-0 

0*12375 

0.001609 

O.OC0745 

0. 

2.160 

0.05037 

0. 

0. 

28. 

3.000 

0.028 

0. 

0. 

-0. 

-O'. 

0 

0* 16500 

/ 

0.001007 

0.0(0812 

0. 

2.225 

0.C4176 

0. 

0. 

42. 

3*999 

0 • P 3 7 

0. 

3. 

-9. 


3 

0.2CA25 

0.001176 

0.0C0SO2 

0. 

2.214 

0.03134 

0. 

0* 

51. 

4.999 

0*046 

0* 

0. 

-0. 

-o. 

-0 

0*24150 

0.001852 

0. 0C0853 

0. 

2.171 

0.03029 

0. 

0. 

64. 

5.998 

0.056 

0* 

0. 

-0. 

-0. 

0 

0.25210 

0.001212 

0,000577 

0. 

2.101 

0.02591 

0. 

0. 

56. 

7.992 

0.074 

0. 

0. 

-0* 

-o. 

1 

0.33100 

0.001240 

0.000567 

0. 

2.187 

0.02489 

0. 

0. 

71. 

9.995 

0.093 

0. 

0. 

-o. 

-0. 

-0 

0.36600 

0.001184 

0.000543 

0. 

2.100 

0.02032 

o. 

0. 

81. 

11.985 

0.111 

0. 

0. 

-0. 

-0. 

0 

0.35800 

0.001124 

O.0C0512 

0. 

2.194 

0.01028 

0* 

0. 

90. 

13.973 

0*130 

0. 

0. 

-0. 

-o. 

-0 

0*42180 

0.001085 

0.000496 

0. 

2.187 

0.01697 

0. 

Q* 

99. 

15.969 

0*148 

0. 

o. 

’0. 

-0. 

-0 

0*45370 

0.001034 

0.0C0475 

0. 

2.175 

0..0U11 

0. 

0. 

106. 

17-950 

0.167 

0 . 

0* 

-0. 

-0. 

-0 

0.47530 

0.000967 

0. 000447 

0. 

2.162 

0.01563 

0. 

0. 

110. 

19.928 

0.185 

0. 

0. 

-o. 

-0. 

0 

0.45390 

0.000909 

O.OCOA20 

0. 

2.162 

0.01519 

0. 

0* 

113. 

21.913 

0-204 

0. 

0. 

-0. 

-o. 

0 

C.51C50 

0.000862 

O.OC0399 

0. 

2.160 

0.01472 

0. 

o. 

117. 

23*882 

0.222 

0. 

3* 

-0. 


3 

0*52570 

0*000029 

0.000382 

0. 

2.168 

0.01423 

0. 

0. 

121. 

25.847 

0.241 

0. 

0. 

-0. 

-0. 

-0 

0.53970 

0.000800 

0.000367 

0. 

2.181 

0.01375 

0* 

0. 

125. 

27.817 

0.259 

o. 

0. 

-o. 

-0. 

'0 

0.55280 

0.00(776 

0.000355 

0. 

2.187 

0.01329 

0. 

0. 

130. 

29.771 

0.276 

0. 

• o. 

-0. 

-3* 

-J 

0.56520 

0.000757 

0.000345 

0. 

2.197 

0.01206 

o. 

0. 

134. 

31.719 

0.296 

c. 

0. 

-0. 

-0. 

“0 

0*57690 

0*000740 

0.000335 

0. 

2.206 

0.01244 

0. 

0. 

139* 

33*671 

0.315 

0. 

0. 

-0. 

-0* 

-0 

0.58810 

C.OOC726 

0.000328 

0. 

2.215 

G. 01207 

0. 

0. 

144. 

35*606 

0*334 

0. 

0. 

-0. 

-0. 

-0 

0.5S880 

0*000715 

0.000321 

0 * 

2.226 

0.01170 

0 . 

0. 

148. 

37.534 

0.352 

0 . 

0 . 

- 0 . 

-o. 

0 

0.6C51O 

0*000705 

0. 000315 

0 . 

2.236 

0.01137 

0 . 

0 . 

153. 

39*465 

0.371 

0 . 

0 . 

- 0 . 

- 0 . 

-0 

0.61500 

0*000656 

0.0C031Q 

0. 

2.245 

0.01106 

0. 

0 . 

150. 

41*370 

0.389 

0 . 

0 . 

- 0 . 

- 0 . 

- 0 

0.62860 

0-000690 

0.000306 

0 . 

2.255 

0.01 (76 

0 . 

0 . 

163. 

43.283 

0.406 

0 . 

0 . 

- 0 . 

- 0 . 

0 
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TABLE XI. - Continued. OUTPUT FOR INLET DIFFUSER 
(c) Continued. Summary of boundary layer parameters 


PRINCIPAL BOUNDARY LAYER PARAMETERS FOR 
*• ■DIFFUSER STUDY « • • « « . .... DIFFUSER STUDY- • . 


1 

CT 

MT 

HT 

SF 

Cf 

ST 

GPM 

ROT 

U 

M 

TURB 

RW 

VH 

sw 

cw 

0-63790 

C. 000664 

0 -GC03G2 

0. 

2-267 

0.01047 

0. 

0. 

167- 

45.190 

0-426 

G. 

0. 

-0. 

-0* 

-o. 

0-6 4 TOO 

C-00C676 

O-0CC298 

0. 

2-276 

0-01032 

0. 

o. 

172. 

47-078 

0.445 

C. 

0. 

- 0 • 

-0. 


0 .65720 

0-000695 

0-000300 

0- 

2.317 

0-00546 

0- 

0. 

182- 

48*957 

0-463 

C. 

0. 

-c. 

-o. 

-0* 

0-66770 

0.0CC705 

0. COG 302 

0. 

2-335 

0-00697 

0. 

0* 

191- 

50.837 

0*482 

0. 

0. ' 

-0. 

-0* 

-0. 

0-67870 

0-000717 

0-000305 

0. 

2-351 

0- GO 850 

0. 

0. 

200- 

52-697 

0.500 

o. 

0. 

-o. 

-0. 


C * 69030 

0.000735 

0-OC0310 

0. 

2.374 

0-00807 

0. 

0. 

211* 

54*547 

0.519 

0. 

0. 

-o. 

-0. 

'0. 

0- 70240 

0*70 C 753 

0-000314 

0. 

2-396 

0- C O 766 

0* 

0. 

222- 

56.398 

0*538 

0. 

0. 

-0. 

-0. 

-0. 

0-7 1510 

0.0CC774 

0-000320 

0. 

2.416 

0*00726 

0. 

o. 

234. 

58-227 

0.556 

0. 

3* 

*0. 

-0- 

-3. 

0.72870 

C. 000796 

0-000327 

0. 

2-436 

0*00666 

0. 

0. 

247. 

60*047 

0-575 

0- 

0. 

-0. 

-0* 

*0. 

0.74320 

O.OOC824 

0-000335 

0. 

2.459 

0.00648 

0. 

0. 

262. 

61 * 865 

0*593 

o. 

0. 

-0* 

~0. 

-0. 

0-75500 

0-00C656 

0.000345 

0. 

2.482 

0.00 609 

0. 

0. 

277. 

63-662 

0-612 

0. 

0. 

-o. 

-0. 

-0- 

0*77630 

O.OCC893 

0.000356 

0. 

2.507 

0.00570 

0. 

0. 

295. 

65-448 

0-630 

0. 

0* 

-0. 

-o. 

-0. 

0- 75590 

0-000937 

0-000370 

0. 

2.535 

0-00526 

0. 

a. 

316. 

67.232 

0.649 

0. 

0* 

-0. 

-0. 

'0- 

0.81870 

0.000993 

0.000387 

0. 

2.567 

0-00463 

0- 

0. 

341- 

68.995 

0-667 

0. 

0. 

-0. 

-Q. 

~0. 

0.84760 

0-001074 

0-000412 

0. 

2.606 

0.00432 

0 . 

0 . 

375. 

70.745 

0-686 

0 . 

0 . 

- 0 * 

- 0 . 

-o. 

0-8 66 50 

0*001 193 

0-000448 

0 . ' 

2-661 

0.00384 

0 . 

0 . 

424. 

72.493 

0-704 

0* *.' 

3. 

-0. 

-3. 

“ 0 * 

0.92530 

0-001283 

0-000481 

0 . 

2 ■ 668 

0-00349 

0 - 

0 . 

463. 

74.219 

0.723 

0-000 

0 . 

- 0 . 

-o. 

0 - 

0.57610 

0.001384 

0-000512 

0 . 

2.702 

0.00322 

0 . 

0 . 

507. 

75.933 

C.741 

0.000 

0 . . 

- 0 . 

- 0 . 

-0* 

1.C7850 

0-001486 

0.000544 

0 - 

2.729 

0.00295 

0 . 

0 . 

551. 

77.643 

0-760 

0-000 

0 . 

“ 0 - 


-0. 

1. 10730 

0-001666 

O.OCQ601 

0 . 

2.772 

0-00253 

0 . 

0 . 

626* 

79.331 

0-778 

0-001 

0 . 

-o. 

- 0 . 

-o. 

1.25520 

0-002020 

0.0C0713 

0 . 

2.634 

0-00202 

0 . 

6. 

769. 

81.007 

0-797 

0*003 

0 . 

- 0 . 

* 0 . 

- 0 * 

1.670)0 

0.002815 

0-QC0943 

0 . 

2.985 

0*00108 

0. 

0 . 

1083. 

82*678 

0.815 

0.Q21 

0* 

-0. 

-0. 

- 0* 

1.67640 

0.003488 

0.001129 

0. 

3.090 

0-00083 

0. 

o. 

1328. 

81.106 

0-798 

0.040 

0. 

-0. 

-o. 

-o. 

2.03100 

0.003182 

0.001328 

0. 

2.396 

0.00177 

0. 

0. 

1198. 

79*513 

0.780 

0.399 

0* 

-0* 

-0. 

-0. 

2.36310 

0.004584 

0-00990 

0. 

2.304 

0.00130 

0. 

o. 

1661. 

74.702 

0*728 

0*241 

0. 

-0. 

-0. 

0. 

2.73330 

0.005228 

0.002845 

0. 

1.837 

0. 00307 

0. 

0. 

1825. 

70.642 

0-685 

1.000 

0. 

-0. 

-0. 

-o. 
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TABLE XI. - Continued. OUTPUT FOR INLET DIFFUSER 
(c) Continued, Summary of boundary layer parameters 


PRINCIPAL 80 UN 0 ARY LATER PARAMETERS FOR 
...DIFFUSER STOOY ' DIFFUSER STUDY... 


X 

01 

HI 

HT 

Sf 

CF 

ST 

GPU 

ROT 

U 

N 

TU R ft 

R* 

vn 

sw 

cw 

3*181 50 

0*006846 

O.OC3941 

0. 

1*737 

0.00328 

0* 

0* 

2313* 

67.366 

0.650 

1.000 

0* 

-0. 

-0. 

0 . 

3*43970 

0.0C8635 

0*005059 

0* 

1.707 

0.00313 

0* 

0* 

2839* 

64*880 

0.624 

1.000 

0* 

-0. 

-0. 

~0. 

3*75180 

C.0 10384 

0.GC6202 

0* 

1.674 

0.00302 

c. 

0. 

3333* 

62.009 

0.603 

1*000 

0* 

-0. 

-o. 

'0. 

4*14400 

0*012097 

0*007315 

0* 

1*654 

0.00294 

0* 

0* 

3805. 

61.172 

0.566 

1.000 

□. 

-0. 

-0* 

-0. 

4*49670 

0*013606 

O-0C8330 

0* 

1*634 

0.Q0285 

0* 

0. 

4216* 

59*970 

0.574 

1.000 

3. 

- 0* 

-0. 

-o. 

4* 84840 

0.015664 

0.009585 

0* 

1*634 

0.00270 

0. 

0 * 

4756. 

50*444 

0*550 

1*000 

0. 

-0. 

-0. 

-0* 

9*70090 

0*018000 

0*011077 

0. 

1*625 

0.00255 

0. 

0* 

5337. 

56.715 

0.541 

1.000 

0* 

-0. 

-0. 

>0. 

9. 55270 

0.02C672 

0.012712 

0* 

1* 62 6 

0*00240 

0* 

0* 

5902. 

55.026 

0.524 

1.000 

3. 

'0* 

-0. 

-0. 

5. 5C490 

0*023621 

0.014502 

0* 

1*62 9 

0.00227 

0* 

0. 

6668. 

53.388 

0.507 

1.000 

0. 

-0. 

-0. 

-0* 

6*75710 

0*026905 

0 * 016464 

0* 

1*634 

0.00213 

0* 

0* 

7406* 

51.803 

0.491 

1.000 

0* 

*■ 0* 

-o. 

-0. 

6.60430 

0.030619 

0*016641 

0* 

1*643 

0.00 199 

0* 

0. 

8218. 

50*252 

0.476 

1.000 

0* 

-o. 

-3. 


6*96140 

0*034907 

0*021093 

0* 

1*655 

0.00185 

0* 

0* 

9124. 

40.714 

0*461 

1.000 

0. 

-0. 

-0* 

“0v 

7*11360 

0*039932 

0*023869 

0* 

1*672 

0.00169 

0. 

0* 

10155* 

47*100 

0*446 

1.000 

0* 

-0. 

-0. 

-0. 

7.66980 

C.045675 

0.026996 

0* 

1*692 

0.00154 

0. 

o. 

11299. 

45.701 

0*431 

1.000 

0* 

-0. 

-o. 

’0* 

8* C160G 

0.052106 

0*030376 

0* 

1*715 

0.00139 

0. 

0. 

12545. 

44.309 

0*416 

1.000 

0. 

-0. 

-0* 

0- 

a* 37C10 

0*055703 

0*034116 

0* 

1*750 

0-00123 

0* 

0* 

13991. 

42.975 

0*405 

1.000 

0* 

.-0* 

-0. 

-0. 

fl* 17730 

0.068 ISO 

0*038251 

0* 

1.762 

0.00108 

0* 

0. 

15547. 

41.690 

0.392 

1.000 

0. 

-0. 

-o. 

-o. 

9.07450 

0*077908 

0*042811 

0* 

1.620 

0. 00093 

0. 

0. 

17306. 

40*400 

0*300 

1*000 

0* 

-0. 

-o. 

*0* 

9*47670 

0*006676 

0*047737 

0# 

1*062 

O.OOC79 

0* 

0* 

19240. 

39.341 

3.369 

1*030 

3. 

-0. 

-0* 

-1. 

9.77880 

0*101275 

0.053C67 

0* 

1*906 

0.00065 

0. 

0* 

21363. 

38.272 

0*359 

1.000 

0* 

-0* 

-0. 

-0. 

10*13100 

0*114656 

0*056666 

0* 

1*958 

0*00053 

0* 

0. 

23664* 

37.295 

0*350 

1*000 

0* 

-0. 

-0. 

-0* 

10*40320 

0.130316 

0*064541 

0* 

2*019 

0*00041 

0* 

0* 

26278* 

36.399 

0*341 

1*000 

0* 

-0* 

-0* 

-o. 

10*63540 

0*147042 

0*070775 

0* 

2.078 

0*00030 

0* 

0* 

29024* 

35*564 

0*333 

1.000 

0* 

-0* 

-0. 

-o. 

11* 16750 

0*165713 

0.077330 

0* 

2*144 

0.00021 

0* 

0* 

32063* 

34.791 

0*326 

1*000 

0* 

-0. 

-0. 

-0* 

11*53970 

0*164262 

0*083827 

0* 

2*196 

0*00014 

o. 

0* 

34991. 

34.111 

0*319 

1*000 

0* 

-0. 

-0. 

-o. 

11*89190 

0*202215 

0*050290 

0* 

2*240 

0*00011 

0* 

0* 

37763* 

33*504 

0.313 

1.000 

0* 

-0* 

“0. 

-o. 



TABLE XI. - Continued. OUTPUT FOR INLET DIFFUSER 


(c) Concluded. Summary of boundary layer parameters 


PRINCIPAL BOUNDARY LAYER PARAMETERS FOR 
• * .DIFFUSER STUDY** .... DIFFUSER STUDY... 


A 

CT 

MT 

HT 

SF 

CF 

ST 

GPU 

ROT 

U 

H 

TURB 

Rri 

VM 

$w 

cn 

17*24410 

C -2 178*5 

0*096171 

o. 

2*265 

0.00 009 

0 * 

0 * 

40115 * 

33*000 

0*309 

1.000 

0- 

- 0 . 

- 0 - 

-0 

J 2 - 5 S 620 

0*233459 

0*102297 

0 * 

2*282 

0 . 03 C 08 

0 * 

0 . . 

42398 . 

32.517 

0.304 

1*000 

0 . 

- 0 * 

- 0 . 

-0 

12*94840 

0*246177 

0*106044 

0 * 

2*284 

O.OGCIQ 

0 * 

0 * 

44274 . 

32*097 

0*300 

1*000 

a* 

- 0 * 

- 0 - 

~0 

13*30060 

0*254541 

0.113066 

0* 

2-251 

0*00016 

0 * 

0 * 

45203 * 

31.751 

0*297 

1.000 

0 * 

- 0 . 

- 0 * 

-o 

13*65280 

0*256605 

0*1 17 C 81 

0 . 

2.209 

0*00022 

0 * 

0 * 

45567. 

31*488 

0*294 

uooo 
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0*00078 

0 * 

0 * 

40994 . 

30.962 

0*289 

1.000 

0 * 

— 0 * 

- 0 . 

‘0 

15*76580 

0*215677 
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0*00103 

0 * 

0 * 

38306 * 

31*141 

0*291 

1*000 

3 * 

- 0 * 

-3. 

-3 

16*11800 

0*198116 

0*117253 

0 * 

1*690 

0*00135 

0 * 

0 . 

35008 . 

31.582 

0*295 

1.000 

0 * 

- 0 . 

- 0 . 

-0 

lb.4JC?0 

0*174578 

0*108662 

0 * 

1*607 

0*00171 

0 * 

0 * 

31494 * 

32*266 

0*302 

1*000 

0 . 

- 0 . 

- 0 * 

-0 

16*87240 

0 * 1 5040 A 

0.098518 

0 * 

1*527 

0*00209 

0 . 

0 * 

27883 * 

33*241 

0*311 

1.000 

0 * 

• 0 . 

- 0 * 

3 

17*17450 

0.127676 

0*087597 

0# 

1 . 46 C 

0*00248 

0* 

0* 

245 12 * 

34.457 

0*323 

1*000 

0. 

-0. 

-0* 

-o 

17*52670 

0*106177 

0.076712 

0* 

1*410 

0*00279 

0* 

0* 

21549 . 

35*919 

0*337 

1*030 

0* 

-0* 

-0* 

-0 


-4 



148 


TABLE XL - Continued. OUTPUT FOR INLET DIFFUSER 
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18.6346 

I 3 

4 

XI 11 = 

J .237506-01 

COFi* 

5.0415 

|* 

5 

XIII* 

1-65000E-01 
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(d) Momentum and energy balance ratios 
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TABLE XI. - Concluded, OUTPUT FOR INLET DIFFUSER 


(d) Concluded. Momentum and energy balance ratios 
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1.0139 

R21F* 

0*9987 

C0G1- 

1.0000 

C0G2- 

1.0000 

R2LG= 

1.0000 

1.0112 

R21F 8 

0.9990 

C0G1 8 

1.0000 

C0G2 8 

1.3333 

R21G 8 

1-3333 

1*0090 

R21F* 

0.9979 

C0G1 " 

1.0000 

C0G2 8 

1*0000 

R21G* 

1.0000 

1*0072 

R21F* 

0.9977 

COGl- 

1.0000 

C0G2= 

1*0000 

R21G= 

1*0000 

1*0056 

R21F* 

0.9980 

COG1- 

1.0000 

C0G2 8 

1*0303 

R2 1G- 

1*3333 

1.0044 

R21F= 

0.9961 

COGl* 

1.0000 

C0G2= 

1.0000 

R21G 8 

1*0000 

1.0033 

R21F* 

0.9974 

COGl 8 

1.0000 

C0G2- 

1.0000 

R2 1G= 

1-0000 

1.0025 

A21F* 

0.9985 

C0G1 = 

1.0000 

C0G2- 

1.0000 

R2 1G= 

1*3333 

1.0019 

A2lF= 

0.9981 

C0G1 = 

1.0000 

C0G2* 

1.0000 

R21G= 

1*0000 

1.0013 

R2 IF 9 

0.9970 

C0G1 = 

1.0000 

C0G2- 

1.0000 

P2 1G 8 

1*0000 

1.0009 

R 2 1F= 

0.9976 

C0G1 = 

1.0000 

C0G2- 

1.0000 

R2 1G- 

1.0000 

1.0006 

R2iF- 

0.9996 

CO Gl = 

1.3000 

C0G2= 

1*0000 

R21G= 

1.0000 

1.0004 

R21F- 

0.9981 

COGl 9 

1.0000 

C0G2 8 

1.0000 

R2 IG» 

1.0000 

1*0003 

R21F- 

1.0014 

C0Gi» 

1*0000 

C0G2= 

1.0000 

R2iG= 

1.0000 

1*0032 

R2 IF = 

0*9966 

COGl* 

1*0000 

C0G2= 

1.0000 

R21G= 

1*0003 

1.0002 

R21F 8 

1*0014 

COGl 8 

1.0000 

C0G2 8 

1.0000 

P21G= 

1.0000 

1.0002 

R21f« 

1.0033 

C0G1 = 

1.0000 

C0G2- 

1.0000 

R21G* 

1*0000 

1.0002 

R21F* 

1*0037. 

COGl* 

1*0030 

C0G2* 

1*3303 

R21G» 

1.0000 

1.0003 

R21F= 

0.9997 

COGl 8 

1*0000 

C0G2* 

1*0000 

R2 1G- 

1.0000 

1.0004 

R2 IF 8 

1.0029 

COGl 8 

1.0000 

C0G2 8 

1.0000 

R21G= 

1.0000 

1*0005 

R21F* 

1*0019 

COGl- 

1*0030 

C0G2 8 

1*3003 

R2 IG= 

1*3333 

1.0006 

R21F* 

1*0016 

C0G1 = 

1.0000 

C0G2 8 

1*0000 

R21G- 

1*0000 

1.0008 

H21F* 

1*0018 

COGl 8 

1*0000 

C0G2* 

1.0000 

R21G- 

1*0000 

1*0010 

R21F* 

1.0059 

COGl 8 

.1*0030 

CQG2= 

1*3303 

R2 IG 8 

1*3333 

1*0013 

R21F* 

1*0035 

CDG1* 

1.0000 

C0G2= 

1.0000 

R2iG= 

1.0003 

1*0017 

R21F* 

0*9986 

COGl* 

l.'OOOO 

C0G2= 

1.0000 

R21G= 

1*0000 

1*0024 

R21F 8 

0.9997 

COGl* 

1*0000 

C0G2 8 

1.3303 

R21G= 

1.3333 

1*0032 

A21F = 

0.9996 

COGl 3 

1.0000 

C0G2* 

1*0003 

RZIG 8 

1.0000 

1.0043 

R2 IF* 

0.9993 

COGl 8 

1*0000 

C0G2= 

1*0000 

R21G- 

1.0000 

1*0056 

R21F* 

0.9899 

COGl* 

1*0000 

C0G2= 

1*0303 

R21G= 

l. 3333 


*01* 1JNIT05* EOF* 


AEC« 00000 F IL 8 00002 



If POP. NE. 1, then subroutine ITSR lists the number of cycles to converge in the 
momentum loop (ITP=MOM) and in the momentum -energy loop (ITME=MAE) together 
with other case sensitive variables such as COFl, COF2, COG1, and COG2. The 
ratios R2lF=COF2/COFl and R21G=COG2/COGl are listed by subroutine ITSR to- 
gether with COF2, COFl, COG2, and COG1 at each x -station and also as a table by 
subroutine NDIR when ISTO(6).EQ. 1. The ratios R21F and R21G both equal 1. 0 
when the integral momentum and energy equations are well balanced. As a result, no 
corrections based on the displacement thickness are made. Hence, if either ratio de- 
viates much from 1.0 a difficulty may appear. The sensitivity of the wall parameters 
to variations of the ratios R21F and R21G is smaller for large pressure gradients 
than for small pressure gradients. 

To obtain more detailed statistics on the convergence of the wall parameters and 
boundary values in both MAE and MOM loops of subroutines ITFR and ITSR, the 
switch ISTO(5) can be set equal to 1, and the switch POP can be set not equal to 1. 

If the proper values of ISTO(7), ISTO(5), POP, and ISTO(l), which list the input data, 
are used, then information sufficient to locate the source of the difficulty can usually 
be obtained. If , in addition, the case should not be aborted, then the subroutine NDIR 
end profiles and tables will be listed and can be used as a further aid to the diagnosis. 
Also, subroutine FILE has a variety of ways of listing profiles to get sufficient data 
without listing excessively. For the subroutine FILE listing capabilities, see ISTO(2) 
in table VI. 

If the functions U(X) or M(X) lead to an early transition to turbulent flow, then, by 
using ISTO(8) and ISTO(9), a linear section can be inserted at the origin. In most 
cases the use of a linear section starting at the origin and using the original starting 
values will either delay or remove the transition to turbulent flow provided the input 
function, either U(X) or M(X), has a section concave upward between the origin and the 
first maximum. When either U(I) or M(I) is modified by subroutine COTR by the in- 
sertion of a linear section, the corresponding values of the other x -station data input are 
modified similarly. Subroutine XNIR also later modifies the values of RW(I) at the ori- 
gin to satisfy the criterion d(RW(I)/dx. LE. 1. 0 at ETA=0. 0. Later, in subroutines 
ITFR and ITSR a substitute value of d(RW(I)/dx is used to prevent a case abort for 
some sections of the input RW(I) curve when otherwise a negative square root would 
occur. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, December 27, 1973, 

501-24. 
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APPENDIX A 


SYMBOLS 

The number in parenthesis following some of the definitions is the number of the 
equation in appendix B which defines the variable. The quantity in square brackets is 
the equivalent notation used in the computer program. 

B exponent in expression for free -stream velocity variation in laminar 

similarity solution (11-28), [BS] 

bp...,bg coefficients in eqs. (m-7,8), [B] •• 

C constant of proportionality in expression for 6* in laminar similarity so- 

lution (H -28), [C] 

C & parameter related to axisymmetric flow appearing in eq. (11-14), 

2(6*/r w ) cos a, [CA] 

Cf coefficient of skin friction, T w /(P e ^/ 2), [CF] 

C p specific heat at constant pressure 

C u longitudinal curvature parameter in eq. (IV-2), (6*/c w )(u/U)/[(3(u/U)/3q], 

[CU] 

parameter in skin friction relation (11-34), [CMU] 
c w radius of longitudinal curvature in the same units as x, [CW] 

Cq, ...,Cg coefficients in eq. (m-6), [CO. ..C8] 
d density ratio, p e /p, [D] 

f ? velocity defect variable, (p e U - pu)/p e U, [FP] 

g’ enthalpy defect variable, (h° - h°)/(h° - h r ), [GP] 

H (h° - h r )Ae> [BH] • 

h static enthalpy ' 

h r arbitrary reference enthalpy 

h° total enthalpy, h + u^/2 

i, j indices of variables in the x- and y-directions, respectively, [I, J] 

K pressure gradient parameter, (9 /i/ w )(dU/dx), [KF] 

k specific heat ratio, [SHR] 
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position at which is defined in laminar similarity (11-28), x 2 - Xj 
free -stream Mach number, [M] 
parameter in eq. (n-14), 6*U X /U, [P] 
parameter in laminar similarity flow, Rg*P, [P] 

Prandtl number, v/u^, [PR] 

turbulent Prandtl number, (u e - y )/( y e g ~ [PRT] 
static pressure 

parameter in eq. (11-14), (P e U5 *) x /P e U> [Q] 

Rg + Q, parameter in laminar similarity flow, [Q] 

turbulence intensity, [FTE] 
local heat flux 

r w«‘ /r W [ R ] ■ 

parameter in laminar similarity flow, R^R, [R] 

critical Reynolds number, [RMC] 

fully turbulent Reynolds number, ]RMT] 

Reynolds number in laminar similarity solution, (x 2 - x^)U/ v, [RL] 

Reynolds number based on displacement thickness, 5*U/V, [RDT] 

radius of a point in the boundary layer in the same units as x, 
r w (x) + y cos c*(x) 

radius of surface in the same units as x, [RW] 

Sutherland constant, eq. (11-18), [STC] 

Stanton number, q w /[p e U(h° - h^)], [ST] 

reference Stanton number, q w /(p e U(h° - h r )], [STR] 

characteristic sice of roughness elements in the same units as x, [SW] 

proportion of turbulence viscosity in effective viscosity, eq. (IV-4), 
[TURB] 

free -stream velocity, arbitrary dimensional units, [U] 

free -stream velocity at x 2 in laminar similarity solution, same units 
as U, [U(2)] 

time average velocities in x- and y-directions, respectively 



u 

T 


V 


c 


-v'h' 


-v’u' 


x 

X 

AX 

y 

y 

a 

r 


6 * 




6 


K 

V 


V 


eg 


P 


T 


skin friction velocity, y r w /p w , same units as U 

correction factor which accounts for influence of longitudinal wall curva- 
ture on the effective viscosity, [VHP] 

Reynolds heat flux 

Reynolds stress 

wall transpiration velocity, same units as U, [VW] 
streamwise coordinate, arbitrary dimensional units, [X] 
untransformed x -coordinate 

x i+1 - x., numerical integration step in the streamwise direction, [DX] 
coordinate normal to wall 
untransformed y -coordinate 

angle of tangent to surface with respect to axis of symmetry 

ratio of skin friction velocity to freestream velocity, |V T w /pU^, [GAM] 


displacement thickness, 
as x, [DT] 



(r/r w )dy, same units 


kinematic displacement thickness, 
as x 


■/ ("-V 


U(r/r w )dy, same units 


nondimensional coordinate normal to wall, y/6*, [Y] 


momentum thickness, jj pufu - uj / ip^Tj (r/r w )dy, same units 

as x, [MT] Jo X V 7 


von Karman constant, 0.41, [SK] 
molecular kinematic viscosity 
effective kinematic viscosity 
effective kinematic conductivity 
density 

local shear stress 
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T 

T* 


* 


nondimen sional effective viscosity, eq. (II-17a), v e /\36*, [VE] 
nondimensional effective viscosity in laminar starting flow, R g *T, [VE] 
nondimensional effective conductivity, eq. (II-17b), ^gg/Ufi*, [VEG] 


integral enthalpy thickness, 
[HT] 




(p, $ inner and outer effective viscosity functions 

Subscripts: 

cr critical point 

e evaluated at edge of layer (except for v^r\ = ?? e ) = r eoo ); also used to denote 

equilibrium f’ and g 1 functions 

ft fully turbulent point 

w evaluated at wall, (( )W] 

x differentiation with respect to x 

1 evaluated at initial x- station 

°° evaluated at the edge of the layer, rj — «>, [( )E] 

~ denotes quantity in similarity starting equations which have different 

interpretation in laminar and turbulent flows 

A fully turbulent point minus critical point 

Superscripts: 


differentiation with respect to tj = y/6*, [( )P] 

when used with x and y denotes untransformed coordinates; also denotes 
average value, [( ) i+1 + ( ).]/2 
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APPENDIX B 


EQUATIONS USED BY COMPUTER PROGRAM 

The pertinent equations are given herein as a cross reference to the discussion of 
the common program variables and the comments contained in the computer program. 
The equations and equation numbers are taken from reference 1. The symbols are de- 
fined in appendix A. 

Transformed momentum and energy equations: 


■ (UCji[d(l -f’)]' + 


(Q + R)(r? - f) - 6*f, 

P e U 


df” 


r- 




V 


Q V 


(Q + R)(?7 - f) - - 6*f, 


P e U 


d’ - (Pd + 6*d x )(2 


(Q + R)(jj - f) - - Wj 

P e U 


d’ + P(d - 1) + 5*^ 


= (1 - f')6*dtL 


(n-14) 


r 


a + c.i,) -£ j 




— Me 


H h+LliMg 
\ n e j 


g 

''eg 


d 2 (l - f’) 2 



(Q + R)(tj -f) - 6*f 


Vw 


*e U ' 


g” = (1 


(n-i5) 
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2 (l +i^_=Jr M e )(1 -Hg’) 


d = 


/ 


(n-i6) 


1 + -l/ 1 + 2(k - l)Mg(l - V) (1 + 


] (1 - Hg’) 
2 e / 


Effective viscosity and effective conductivity: 


T 


<p(XR) 
6* R 


+ $(X) - X 


and 



where 


X = 



6 k U 


R = 


U5| 

v(rj) 


Sutherland molecular viscosity relation: 



Transformed boundary conditions: 


f(x, 0) = 0 
f'(x, 0) = 0 


(n-17a) 


(n-17b) 


(n-18) 


(n-19a) 

(II-19b) 



lim f(x,Tj) — 1 

77—00 


(U-19c) 


r(x,o) 


h ? - V x > 



or 


g"(x,0) 


6*q w (x) 

PwV( h e ' h r) 


(n-19d) 


lim g(x, 77 ) is bounded 
77 — °o 

Momentum integral equation: 


(«w 2+l ) 1 


"Ve 0 


2 +h\ 


/i-1 



(H-19e) 


(n- 21 ) 


where 0 , the integral momentum thickness, is defined as 



Energy integral equation: 


(H-22) 



where 1 //, the integral enthalpy thickness, is defined as 
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The left and right sides of equation (El-23), are COGl and COG2, respectively. 
Momentum and energy equations for laminar similarity flow: 


■t 


T* 


(l + C a Tj)if[d(l + 


p v 

(Q* + R*)d(7? - f) - d R 

P e U 


6*1 


+ 


(Q* + R*)d’ (tj - f) - (P*d + Rg* 6*d JC )(2 - f») 


Vw 

P e U 


+ (Q* + R*)d'f + P*(d - 1) - (Q* + R*)77d' 


+ R 6* 6+d X + ^ R 6* d, = 0 



(Q* + R*)(tj 


P V 

D^h 

P e u 


6 * 


k” = o 


where 


R 6 *6* d x = 


P*(k - 1)M 2 ^1 - 1 Mgj [l - Hg» - d 2 (l - f’) 2 ] 

1 + (k - l)M 2 d(l - f’) 2 


Laminar similarity parameters: 



R Q+ d’ f’ 


(11-25) 


(11-26) 


(n-27) 


(R-28a) 
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5*(x) 

L 


■ c © 


f(l"B)/2] 


P* = C r l b 


Q* = C^R l 


i(f " M e) + 2 ^ " B J 


2 W x 

R* = CTR t L — 

^ r 

w 


Turbulent similarity parameters: 


6 * d x = 


P(k - 1)M 2 ^1 + [(1 - Kg') - d 2 (l - f 1 ) 2 ] 


1 + (k - l)Mgd(l - f’) 2 


(k - l)M 2 d 2 (l - f’h*fx " y + M e j H5 * g x 

1 + (k - l)M 2 d(l - f’) 2 


yi 6* 


© <Q+ V 


where 



(k - 1)M^ 


(n-28b) 

(H-29a) 

(H-29b) 

(11-29 c) 


(H-32) 

(11-34) 

(n-35) 

(n-37) 
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Momentum and energy equations for turbulent similarity flow: 


f 

{(1 + C IJ)I[<K1 -*’)]'} + 

5*y 0 V 

(Q + R)d(?? - f) - x r/d - d w w 

1 a d J 

V P e u _ 


+ 


5*y 

(Q + R)d'(n - f) - (Pd + 6*d x )(2 - V) - (1 - f*)(d - Tjd') — - 

Y 


^w v w 

P e U 



r 


p V 


+ (Q + R)d'f + P(d - 1) - (Q + R)Tjd' + 6*^ +-5LZ d’ = 0 


P e U 


(n-38) 


and 


( 


(1 + C a i7) -£<(g" - 


d 


k - 1 .^2 
M 


V 


" - j 2 * . U - l) [d 2 (l - f.) 2 ]’ 

H ( 1 + ~ M e)^ / 


I 

\ 


J 


6*y 

(Q + R)(rj - f) * 


n 


P V 

w 


P u 


5*S tr 

g" - (1 -f T ) -g' = 0 

' S tr 


(n-39) 


In both laminar and turbulent flow the resulting expression for Q is: 
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Rd(7j -f) + ~ c ( Prjd -d 




Vw 

\p<v 




Rd’( 7 , -f) -(^+5^(2 -f’) 


r dT ? 


+ (1 -f')(d -rjd’) - C, P - 


^W V W ^ dt 

P U 


Rd'f + P(d - 1) - RT?d' + 6 *^ + 


'p v \ 

*UL\d' 



r 


d(^ -f) +(^]? 7 d 
K 


f" - (77 - f)d’ 


1 


r dT ? 


d 1 (tj -f) + (1 - P)(d - Tjd')l — 

K 




J 


+ ?LlJL [1 - Hg f - d 2 (l - f’) 2 ] 
+ (k - l)M 2 d(l - f ’) 2 


ft 9 6*y„ 

(k - l)RQr(l - f') (f r + rjf”) 

7 

1 + (k - l)M 2 d(l - f ’) 2 


(n-4i) 



) (n-42) 
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Equations used in method of solution: 




(1 + C a r?)T 


f” - (1 -f’) 


(13I-6a) 




T 

(1 + C rj) 

a d 


(k - 1)M' 


H 


i + i( k - ml I v T g 

2 e 


— - 1 |d(l - f T )[d»(l -f*) - df"] 


l 


(m-6b) 


r i-i ‘ c i 1 _ 1 f i-i + C 2 1 ., , i-1 + C 3 U1 - Vi (f * ' f i-2> <m " 6c> 


*i-i= c 7 1 _ 1 e i-i 


(HI-6d) 


and 


= (Q + R)(tj - f) - - 6*f x 

(m-6e) 

C 1 = c o d 

(m-6f) 

; 2 = c 2 d’ - (Pd+ 6*d x )(2 - f’) 

(m-6g) 

c 3 = - c 0 d ' + P ( d ~ 1) + 

(ni-6h) 

c 4 = d(l -f’) 51 
AX 

(IH-6i) 

c 7 = c 0 

(m-6j) 

c 8 = (1 ' ft ) ~ 

(III -6k) 


Ax 
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Finally, the form in which these equations are solved is 


[b 4 (f" ♦ b 5 )]’ = b 3 + bjr * bjf! (in-7) 

[b 4 <g" +b 5 j| b 3 + b 2 g” tbjgi (m-8) 

where the coefficients for the f' equation are 

bi = c 2 - 2 c 4 + c 4 . t (IH-9a) 

b 2 = Cj (HI-9b) 

b 3 = (c 4 - c i_i) f r_i + ^2 + 2 ^4 ‘ C 2 i _ 1 ) f i-1 + 2 ^3 ' c 3 ' c 4 f i-2 (ni-9c) 

b 4 = -[(1 + C a i?)T] (in-9d) 

T- — 

b,- = - Vl -f’) (ni-9e) 

b \d/ 


and for the g’ equation, 


b l _ c 7 

(m-lOa) 

b 2 = -2c g + c^^ 

(HI- 10b) 

b 3 = ( c 7 " c 7 i _ 1 ) g: i-l + 2c 8 g i-l " 

(HI -10c) 

b, > - |(i - c.n) 

(m-10d) 


Ji 
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b 5 = 


r 

(k - l)Mg 

•s 

H 

l + -(k - l)Mgl 


2 e J 




- - 1] d(l - f T )[d'(l - £') - df n ] > 

T g / 

J 


(m-10e) 


For the similarity starting flows, the corresponding coefficients of equation (HI-7) are 
b x = c Q d’ - (pd + 6*d x )(2 - f') - (1 - f’)(d - Tjd’)^^ (in -11a) 


where 


b 2 “ 




'o ■ *1 


b 3 = - c o d ’ + £ (d ■ V + 5 * d x 
b 4 = (1 ♦ CV?)T 

b 5 = - (~)(1 ~ f r ) 

\d / 


c n = (Q + R\rj -f) -( 

. V ~ \ P e u 


rs *s tr 

b - (■> *.\i x 


,w 1 


>!= -(1 -f T )| 


(ni-iib) 

(m-iic) 

(ni-iid) 

(Hl-lle) 


(m-l2a) 


;tr 


1 f 5 *Zx 

b 2 = c Q - ?7 


(HE -12b) 


U, = U.u 


(m-i2c) 
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(m- 12 d) 


b A = -(1 + Cj-i 


b 5 = 


(k - 1)M 


H 


1 + - (k - 1)M^ 


e /_X - A d(l - f’)[d’(l - £•) - df’’] 


T 


Effective viscosity correction: 


V c = 


1/ 2 


r 


i-c u i + 


pv’ u' 

pU'V* 


1 - C„ 


L 


-\ 


c u (1 + c u> 1 + 


p’v’u 


1 - 4.0 


4pu’v' / 


3/2 


k. 


1 - C U (* * £ =-) (1 - V 
\ pu'v’ / 


r li-c 


U' 


where the term (p'v’u)/(pu’v’) evaluated using Reynolds analogy is 


( — 1 

p’v’u _ u 1 \9y/ 
pu’v' h P rt 7du) 
\3yJ 


Turbulent viscosity relation: 

T = TT turbulent + " T ) T laminar> <° < T < D 


(m-12e) 


(IV -2) 


(IV -3) 


(IV -4) 
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APPENDIX C 


DISCUSSION OF SUBROUTINE A6IR 

A6ER is a reading and listing program that comprises two separate main loops for 
reading, testing, listing, and returning to the calling routine. If the second main loop 
is entered, it is entered following the exit from the first main loop. Subroutine A6IR 
has no internal switches to prevent listing on an external switch option. Listing and/or 
switching data is carried on each card and can be a part of the listed text. 

Cards read in by the first main loop are designated as type 0 cards. The last type 0 
card read in either causes a return to the calling routine or becomes a main index dis- 
criminator card for the following second main loop. Except for the return and transfer 
cards, the second main loop lists the remaining cards. 

If only type 0 cards are to be listed, A6IR may be simplified. Except for the 994 
and 997 format cards and the end card, delete all cards after the card containing the 
GO TO 104 instruction. 

The main index discreiminator card contains the following test words: 

Card column 

1 to 6 First index discriminator word 

7 to 12 Second index discriminator word 
13 to 18 Third index discriminator word 

(Any index discriminator word may be a blank. ) 

73 to 78 Test word for main loop only 

The first main loop lists type 0 cards only. Type 0 cards list on the left side card 
columns 1 to 72 with carriage control and line numbering if card columns 1 to 6, first 
word, and card columns 73 to 78, thirteenth word or the list test word, have a mis- 
match. Then following the listing of the card, if card columns 7 to 12, second word, and 
card columns 73 to 78, thirteenth word, do match, subroutine A6IR exits to the calling 
routine. Otherwise, another type 0 card is read in for testing. The first type 0 card 
which fails to be listed becomes the discriminator card and the second main loop is 
entered. 

The second main loop lists only cards of types 1 to 5. Cards of type 1, 2, and 3 
can be listed only if the switch LIV equals 0. LIV is set equal to 0 on entering the 
second main loop and later reset to 1 and 0 by type 4 cards. 

Type 1 cards list as the page left side card columns 1 to 42 of a full line of 122 col- 
umns with carriage control. For a card to become a type 1 card, the thirteenth word 
(card columns 73 to 78) must be identical with the first main index discriminator word. 
Otherwise, it becomes a type 4 card. A type 1 card is always followed by a type 2 card. 
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A type 1 card can follow either a type 0, 4, or 5 card of a type 3 card which becomes a 
transfer card. Type 2 cards list as the page right side card columns 1 to 80 of a full 
line with card columns 1 to 42 of a type 1 card as the left side. Type 2 cards follow only 
type 1 cards, and any card which follows a type 1 card is a type 2 card. 

Type 3 cards list as the page right side card columns 1 to 80 of a partial line start- 
ing with carriage column 43 and with no carriage control. Type 3 cards succeed either 
type 3 or 2 cards. 

Type 4 cards list on the page left side card columns 1 to 80 with carriage control. 

A type 4 card can succeed either a card of type 0, 4, or 5, or a type 3 transfer card. 

Type 5 cards list on the page left side card columns 1 to 80 without carriage con- 
trol. A type 5 card can succeed a card of type 0, 4, or 5. 

A transfer card is a possible type 3 card and succeeds only a card of type 2 or 3. 

A transfer card is read in by the second main loop (second subloop), and it transfer con- 
trol from the second subloop to the first subloop entrance without being listed. Except 
for the last card which may be a type 3 card, a blank transfer card becomes the marker 
card after each set of two cards when a block of full width lines is to be listed and the 
first discriminator word is a blank. 

A return card if read in by the first main loop is listed as a type 0 card before it is 
tested for a return to the calling routine. A return card if read in by the second main 
loop is a possible type 1 card, but it returns control to the calling routine before reach- 
ing the test for a type 1 card. 
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